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NOMENCLATURE 


A 

A c 

B 

B c 

[C b ] 

[CJ 

[CJ 

[CJ 

[CJ 


= rotor modal displacement of (X, 0 X ) 

= casing modal displacement of (X c , X C J 
= rotor modal displacement of (Y, 0 y ) 

= rotor modal displacement of (Y c , Y c „) 
= bearing damping matrix 
= casing structure damping matrix 

= [*] T [C b ] [$] 

= E^d T [C b ] [*J 

= [*j [cj m 


D 

D t 

D c 

{F(t)} 

{F G (t)} 

{F c (t)} 

{F.(t)} 

[G a ] 

[GJ 

[G a ] 

[GJ 

[K b ] 


rotor modal displacement of Z 
rotor modal displacement of 6 t 
casing modal displacement of (Z c , Z cfl ) 
external and mass-imbalance excitations 
gear force 

force acting on casing structure 
shaft bow force = [K,] {Wj 
rotor angular acceleration 
gyroscopic 

[*] T [G a ] [*] 

[^>] T [g j m 

bearing stiffness 
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NOMENCLATURE (cont’d) 

[KJ 
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casing structure stiffness 
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[KJ 

— 

j {[KJ + [KJ} 

[KJ 

= 

[*} T [K b ] [*] 

[KJ 

= 

[*] T [KJ [*] 

[KJ 

= 

[*J T [KJ [* c ] 

[M] 
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mass matrix of rotor 
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mass matrix of casing structure 
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generalized displacement vector of rotor 

[WJ 
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generalized displacement vector of casing 
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friction coefficient between the gear teeth surfece 
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angle of orientation 
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GLOBAL DYNAMIC MODELING OF A TRANSMISSION SYSTEM 


F.K. Choy and W. Qian 
University of Akron 
Department of Mechanical Engineering 
Akron, Ohio 44325-3903 


ABSTRACT 

This report outlines the work performed on global dynamic simulation and noise 
correlation of gear transmission systems at The University of Akron. The objective of this 
work is to develop a comprehensive procedure to simulate the dynamics of the gear 
transmission system coupled with the effects of gear box vibrations. The developed 
numerical model is benchmarked with results from experimental tests at NASA Lewis 
Research Center. 

The modal synthesis approach is used to develop the global transient vibration 
analysis procedure used in the model. Modal dynamic characteristics of the rotor-gear- 
bearing system are calculated by the matrix transfer method while those of the gear box are 
evaluated by the finite element method (NASTRAN). A three-dimensional, axial-lateral 
coupled bearing model is used to couple the rotor vibrations with the gear box motion. The 
vibrations between the individual rotor systems are coupled through the non-linear gear mesh 
interactions. The global equations of motion are solved in modal coordinates and the 
transient vibration of the system is evaluated by a variable time-stepping integration scheme. 

The relationship between housing vibration and resulting noise of the gear 
transmission system is generated by linear transfer functions using experimental data. A 
nonlinear relationship of the noise components to the fundamental mesh frequency is 
developed using the hypercoherence function. The numerically simulated vibrations and 
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predicted noise of the gear transmission system are compared with the experimental results 
from the gear noise test rig at NASA Lewis Research Center. Results of the comparison 
indicate that the global dynamic model developed can accurately simulate the dynamics of 
a gear transmission system. 
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1 . 


INTRODUCTION 


1.1 Introduction 

Recently there has been an increase in the use of gear transmissions in both defense 
and commercial applications. The ever increasing speed and torque requirements of newer 
transmission systems often result in excessive noise and vibration at both the gear mesh and 
the gear box structure. Large vibrations in gear transmission systems result in excessive 
gear tooth wear and possible tooth root crack formation which, in turn, will lead to 
premature gear failure. In addition, excessive noise produced by a gear transmission in an 
aircraft, results in strained communications between crew and ground stations, and possible 
hearing loss for crew and passengers. Thus, in order to assure a quiet, smooth and safe 
operation of a gear transmission system it is necessary to understand the dynamics of the 
system under various operating conditions as well as the noise produced under these 
conditions. 

To understand the global dynamics of the system during operation, the vibrational 
characteristics of the following major components need to be examined: 

i) The dynamics of the rotor bearing system - The dynamics of each rotor system are excited 
by its rotational torque, gear mesh dynamics, and imbalance effects. The dynamics of each 
individual rotor are coupled with other rotors through the gear mesh forces. Each rotor is 
also coupled with the gear box structure through the bearing support system. 

ii) The dynamics of the gear mesh system - The forces produced by the meshing of the 
gear teeth can be evaluated through the relative motion and the torque transfer between the 
two rotor systems. 
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iii) The dynamics of the gear box system - The vibration of the gear box and its coupling 
effects with each rotor system is evaluated. In addition, the coupling effects of the gear box 
vibrations with the foundation motion through the ground support system is also examined. 

iv) The global system vibration - The determination of the global vibration of the system 
during various operating conditions is necessary. 

v) The relationships between noise and vibration - To understand the source of excessive 
noise, the relationships between noise and vibration of the system is required. 

To further understand the present state of the art and the necessary effort to 
accomplish the above requirements, a brief description of previous work performed and the 
scope of this study are presented in the next two sections. 

1.2 Review of Previous Work 

In the past two decades, significant progress has been achieved in analytical/numerical 
simulations as well as experimental investigations of gear transmission systems. For both 
analytical and experimental studies, two major trends of investigations were developed, 
namely, i) the study of localized dynamics, stress and deformation, and thermal interactions 
between the two meshing gear teeth, and ii) the global dynamics and noise of the system due 
to the effects of the gear teeth interactions. An outline of the previous work in these areas 
is presented in the following paragraphs. 

A large amount of work is reported in the literature on analyzing the localized effects 
of gear tooth interactions. In the area of experimental investigations, a significant amount 
of work was performed at NASA Lewis Research Center over the last ten years. These 
studies include the measurement of tooth stress [Oswald 1987 , Krantz 1992], gear tooth 
lubricant and thermal effects [Akin 1989, Lewicki 1992 , Townsend 1991a 1991b, El- 
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Bayou my 1989], gear tooth friction [Rebbechi 1991], and gear tooth material and fatigue 
[Townsend 1979, 1988]. Some analytical studies include gear surfaces stresses, lubricant 
cooling effect [El-Bayoumy 1989], gear tooth surface profile investigations [Kittur 1989, Lin 
1988, Litvin 1991a, 1991b] and the dynamics of bevel gears [Handschuh 1991a, 1991b, 
Mark 1987], The above outline represents only a small portion of the literature on the state 
of the art in gear tooth analysis. 

In comparison, there is much less available in the literature on the study of the global 
dynamics of a transmission system. There have been some studies on the vibration analysis 
of a single gear stage [August 1982, Choy 1988, Cornell 1981, Lin and Houser 1987, Mark 
1982, Pike 1987], Some work has been reported on multistage gear dynamic analysis [Choy 
1990, David 1987, Ozguven and Houser 1988]. However, only limited work is reported in 
the area of experimental analysis of the global dynamics of a transmission system [Mitchell 
1986, Oswald 1992], Similarly, there is limited work on the comparison of experimental 
results with analytical studies [Choy 1987, 1991, Singh 1990]. Reported research is even 
more limited in the areas of noise analysis and noise prediction in gear transmission systems. 
Some work on predicting and verifying the noise field of a gear transmission system has only 
recently been reported (Seybert 1991, Oswald 1992). 

1.3 Scope and Objectives 

As illustrated above, with the limited amount of literature available on modeling gear 
transmission systems, a comprehensive analytical and experimental procedure is necessary 
for the complete understanding of the dynamics and resulting noise of a transmission system. 
In this project, a numerical model is developed to simulate the vibrations of a multistage gear 
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system. The ultimate goal in this project is to develop a methodology to predict the noise 
and vibration of a gear transmission system. 

During the early stages of this work several main objectives were established in an 
effort to guide the development of the global model in the direction of achieving the project 
goal. These main objectives are: 

1) The gear/rotor part of the model should be capable of simulating multistage gear 
systems, variable rotor geometries, shaft residual bow, mass imbalances, and non- 
linear stiffness and friction of the gear tooth. 

2) The bearing support part of the model must be capable of coupling the dynamics of 
the gear/rotor system with the housing dynamics in both the in-plane and out-of-plane 
directions. 

3) The finite element model of the housing must accurately predict the major vibration 
modes of the actual housing. Experimental results will be used to verify and improve 
the model. 

4) A relationship needs to be established between the housing vibrations and resulting 
noise production to complete the gear initiated vibration/noise transmission path. 

The key to achieving the ultimate goal of developing a global dynamic model that 

accurately predicts the noise and vibration of a .transmission system was to successfully meet 
each of the main objectives presented above. Meeting these objectives required comparing 
and validating each part of the model, and the total model, with experimental data during 
each stage of development of the global dynamic model. 
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The remaining sections of this report document the details of developing the global 
model and verifying/refining the model with experimental data from the gear noise test rig 


at NASA Lewis Research Center. 

2. FORMULATION OF GENERALIZED EQUATIONS OF MOTION 
2.1 Dynamics of Rotor-Bearing-Gear System 

The equations of motion for each individual gear-shaft system can be written in matrix 
form [Choy 1991] as: 

[M]{W] * [GJ{W] + [G a ]{W} + [C b ]{W-W c } 

+ [K b ]{W-W c } + [K s ]{W-W r } = (F(/)} + {F c (0} 
where the generalized displacement vector {W} consists of the three displacement vectors, 
X, Y, Z, with the corresponding lateral 6 X , 6 y , and torsional 0, rotational vectors as 

W 

(*,) 

0 0 

(e y ) 

(Z) 

( 0 ) 

The equations of motion shown in Eq. (2.1) includes the effects of a) inertia, [M], 
b) gyroscopic forces [G v ], c) rotor angular acceleration, [G A ], d) bearing direct and cross- 
coupling damping, [C b ], e) bearing axial and lateral cross-coupling stiffness, [K b ], [LIM 
1990], f) casing vibration, {W - W c }, g) shaft residual bow, {W - W r }, h) external and 
mass-imbalance excitations, (F(t)}, and i) nonlinear gear forces through gear mesh coupling 
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{F c (t)}. For a multiple gear-shaft system, the equations of motion presented in Eq. (2.1) 
will be repeated for each individual shaft. The motions of the individual shafts are coupled 
to each other through the gear mesh forces, and the shaft motions are coupled to the casing 
through the bearing stiffness [K b ] and damping [C b ]. 

2.2 Dynamics of Gear Box Structure 

The equations of motion for the casing can be written as: 

[A ',]W + [C b ]{W-W\ * [ATJ{VV -W} + [C c ]{Wj 

+ iK'HK} = {^(0} 

where {W c } represents the generalized displacement vector of the casing structure, 

<*,) 

excf) 

TO n ^ 

{WJ = J l (2-4) 

TO) 

TO 

TO) 

The equations of motion of the casing structure, given in Eq. (2.3), include the effects of 
concentrated mass [MJ, structure members damping [C c ], stiffness of the structural members 
[KJ, and casing-to-rotor bearing stiffness [K b ] and damping [C b ]. The effects of foundation 
motion are incorporated into the system through the forcing function F c (t). 

2.3 Coupled System Dynamics 

The dynamics between each individual rotor system and the casing structure are 

coupled through the bearing support and the gear mesh systems. Three models are used to 

{ 

couple the dynamics of the system, namely; i) the 3-D lateral-axial bearing, ii) the normal 
and frictional gear mesh forces, and iii) the casing-ground support system. 


8 


3-D Lateral-Axial Bearing Model 


This model is used to develop two types of coupling in the system dynamics, a) The 
relative motion between the rotor and the casing structure at the bearing locations will be 
used to generate the coupling forces, b) The dynamics between the lateral and axial motion 
at the bearing supports will be coupled due to the effects of the bearing configuration. 

In this simulation, a previously developed bearing model [Singh and Lim 1990] is 
used. A six degrees of freedom ball bearing stiffness matrix [K bi ] is used for each bearing 
support location, where 


= 


k k k k k 

K x$ m K xy K x0 y K xz 

k k k k 

*$e t "'ey K ee y 

k yy k y°y k y Z 

symmetric k ee k. 


0 

0 

0 

0 

0 

0 


bi 


(2.5) 


Note that the bearing stiffness matrix generated not only couples the displacement in all three 
directions, it also provides coupling between the moments generated due to the bending of 
the rotor. In this analysis, the bearing stiffness matrix generated for each bearing is 
incorporated into the global bearing stiffness matrix [K b ] in equations 2.1 and 2.3. 

Gear Mesh Normal and Frictional Forces 

The gear mesh forces are evaluated using a previously developed methodology [Boyd 
and Pike 1985]. The procedure evaluates the nonlinear gear mesh stiffness [KJ for a variety 
of multi-mesh epicyclic gear systems with internal, buttress, or helical tooth forms. The 
major assumptions used in this procedure are as follows: 
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1. 


The flexible ring gear rim and carrier flexibility option is assumed to be only along 
the line-of-action of each respective gear mesh. 

2. The static output torque is assumed to be divided evenly among either the planet 
carrier segments or the ring gear rim segments, depending on the type of planetary 
system. 

3. Any radial component of motion is assumed to be secondary to the tooth-pair motion 
along the line-of-action. 

4. The damping of carrier and ring rim segments is assumed to be insignificant relative 
to the tooth-pair mesh damping. 


The nonlinear gear mesh forces for the Kth individual gear-shaft system. Fig. 2.1, using 
nonlinear gear stiffness [Boyd 1989] and gear tooth friction [Rebbechi 1991], are given as: 
x-force 


n 

F c.„ * £ [-*„e„ - R„0„ * <x„ - jycosa* 

+ ( Y ci~ Y ck) sina fa ] [cos ct u + (sign) (n)(s\n a u )] 

y- force 

F o* - £ [-R«e„ - R„e„ * (X„ - X„)cosa„ 

M,i#k 

+ ( Y ci~ Y ck> sin "J [sina u + (sign) (fi) (cos a u )] 

and torsional 

n 

r a > ‘ £ «* [R«l(-R„e d - R,e tl ) * (*„ - xjcos a „ 

+ (KrKk) sinaj} 


(2.6) 


(2.6) 


( 2 . 8 ) 
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where n is the coefficient of friction between the gear tooth surface and "SIGN" is the unity 
sign function to provide the sign change when the mating teeth pass the pitch point [Rebbechi 
1991], 

Effscts-of F o u nd a tion MQtiQn 

The effects of foundation motion are incorporated as part of the forcing function input 
F c (t) in the casing equation (Eq. 2.3). The forcing function due to foundation motion can 
be calculated as the product of the support stiffness [K p ] and the relative motion between the 
casing and ground at the support locations as 

{F C (D} = [K p ] {W C -W G } (2.9) 

where W<. is the vector for ground displacement as a function of time. 
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3. 


FORMULATION OF MODAL SYNTHESIS PROCEDURE 


The generalized equations of motion developed in the previous chapter are solved 
through the modal synthesis procedure. Using the undamped modes for both the rotor- 
bearing-gear system and the gear box structure, the generalized equations of motion for the 
system are transformed into the corresponding modal coordinates. This procedure will 
significantly reduce the degrees of freedom of the system, and also provide an estimate of 
the modal excitations at the various modes. A detailed description of the procedure is 
outlined in the following sections. 

3.1 Modal Characteristics of Rotor- Bearing-Gear Systems 

For each rotor-bearing-gear system, the modal characteristics are evaluated using the 
matrix-transfer method [Choy 1988, 1989, 1991]. In this analysis, the rotor system is 
modelled by sections of massless shafts and concentrated masses. For simplicity in 
computation, the following assumptions are used in this procedure. 

i) The complexity in the rotor geometry is modelled by sections of massless shafts with 
concentrated mass attached at both ends. 

ii) Only the direct stiffness of the bearing is incorporated in the calculation of the 
undamped natural frequencies and mode shapes. The cross-coupling stiffness and 
damping terms are cast into the right-hand-side of the equation as a forcing function. 

iii) An averaged stiffness for both x and y direction is used and assures a circular 
symmetric system. 
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iv) Gyroscopic moments are not considered in the modal calculations and will be 
incorporated as forcing functions in the transient calculations. However, rotational 
inertia effects are included in this procedure. 

A detailed description of the equations used in this matrix transfer procedure is given in 
Appendix A. The natural frequencies and corresponding mode shapes calculated for each 
rotor system, are incorporated into the modal equation described in the later sections. The 
undamped modal characteristics evaluation procedure is installed as part of the main 
computer code, with the undamped modal characteristics generated automatically during each 
run. 


3.2 Modal Characteristics of Gear Box Structure 

In evaluating the modal characteristics of the gear box structure, a finite element 
model is used. The NASTRAN FE code is used with the following options: 

i) Rectangular plate and beam elements are used to model the basic structure of the gear 
box. 

ii) Boundary elements are used to model the ground supports of the gear box with 
corresponding boundary support conditions. 

iii) Natural frequencies and 3-dimensional orthonormal mode shapes are evaluated and 
used as input for the modal synthesis program. 

iv) A description of the input/output with the NASTRAN code is given in Appendix B. 

3.3 Orthogonality of Modal Shapes 

For each individual rotor system, the equation of motion for the undamped system is: 
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[M]{w} + [[/g + [/y]{w} =o (3i) 

with the average bearing support stiffness from the x-y direction [Choy 1991] given as: 


[*j - 5 «*j + < 3 - 2 > 

The orthogonality condition for the orthonormal modes [$] are 

[<i>] r [A/][$] = [/] 03 ) 

and 

[*] r I^ + ^,H*] = l« 2 ] < 3 - 4 ) 

Similarly, a set of orthogonality conditions can be derived for the casing equation of 

[MJW + [C c )W + = 0 (3.5) 

with the orthonormal mode [$J such that 

= W (3-6) 

l*f[C c ) [*J = [CJ (3-7) 

= I«2] 03 ) 

These orthogonal conditions are used in the modal transformation presented in the next 
section. 

3.4 Modal Transformation of Equations of Motion 

The modal transformation procedure can be developed by assuming that the 
generalized displacements can be represented by a linear combination of the modal 
characteristics, such that for the rotor system 
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{W} = \ 


(3.9) 


[*J M 
[*JM 
[* y ] {B} 

r*g { d } 

[*,] {D,} 

where A, B, D, and D t are the time dependent modal excitation funct ons, and [# x ], [$ x() ] 
I***/], [^*J. [$ t ] are the matrix containing the orthonormal modes of the corresponding 

rotor system. Similarly, for the casing structure, 

t*j ki 
i*,j m,i 
l*„l (8,1 
[*„1(»,1 
(*.,1 ( 0,1 
[+„,] (0,1 

Pre-multiplying the generalized equation of motion by the orthonormal modes, and using the 
orthogonality condition developed in the previous section, the equation for the rotor system 
(2. 1) can be transformed into the modal coordinates as: 


w 


(3.10) 


M{Z} + IG V ]{Z} * [G a ]{Z] + [C b }{Z] - [K b -K A ]{Z} * [*nC b ][* c ]{Z c } 
+ [oj 2 ] {Z} - m r [/f fl ][<f>J{Z} = [*] r {f(/) + F c (0+^(f)} 
and for the casing (Eq. 2.3) as 

[/] {Z c } * [C c ]{Z c } + [U C ]{Z C } + [K b ]{Z c } + [C b ]{Z c } 

- [*J r [^][*]{Z} - [*J r [CJ[*]{Z} = [*J r {F c (0} 

where 


(3.11) 


(3.12) 
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{Z} 


(3.13) 


{A} 

{B} 

' {D} ' 

W 


{ZJ 


{A c } 

• W > 

w 


Note that in equations (3.11 and 3.12) the modal acceleration terms Z and Z c for the rotor 


and the casing are uncoupled and can be evaluated by solving the set of simultaneous matrix 
equations. 


4. NUMERICAL SOLUTION PROCEDURES 

To evaluate the transient dynamics of the rotor-casing system, the modal equations 
(3.11 and 3.12) are rewritten as: 

II] {Z} = \G v ]{Z} - [< G a ]{Z } - [C b ]{Z} + [K b -K A ] {Z} - [4>] r [C fc ][4> c ]{Zj 

(4.1) 

- [a, 2 ] {z> + 
and for the casing 

U]{ZJ = [C ]{ZJ - [J c ]{Z c j - [ K b ]{Z c } - [ C b ]{Z c } 

(4.2) 

+ [*J T [A:*][*]{Z} - [4> c ] r [CJ[4>]{Z} + [*J T {F c (t)} 

Using the appropriate initial conditions for the modal velocity {Z} and displacement {Z}, 

the modal accelerations {Z} can be solved. The solution procedure for the algorithm is 
given as follows. 

1 . Input Initial Conditions to Calculate Modal Accelerations 

2. Use Variable Time-stepping Integration Scheme to Evaluate Modal Velocity and 
Displacement at next time step. 

3. Calculate Velocity and Displacement in Generalized Coordinates. 
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4. Calculate Nonlinear Gear Mesh Forces due to Relative Motion Between the Two 
Gears. 

5. Calculate Bearing Forces due to Relative Motion Between the Rotor and the Casing. 

6. Calculate Modal Bearing and Gear Forces. 

7. Repeat from Step No. 2. 

5. EXPERIMENTAL STUDIES 

Test results from the gear noise test rig, Fig. 5.1, at NASA Lewis Research Center 
were used in this study to refine and validate the global dynamic model developed. Three 
phases of experimental studies were performed, namely; i) the determination of static modal 
characteristics using the impulse-response technique; ii) the transient vibration of both rotor 
and the gear box structure during operation; and iii) the noise production at the gear box 
surfaces. An outline of the experimental studies are presented below: 

5.1 Evaluation of Experimental Modal Characteristics 

The gear transmission system used in this test is shown in Fig. 5.2. The gear system 
consists of a pair of identical parallel axis gears supported by rolling element bearings. The 
surface of the gear box structure is segmented into 1 16 nodal points. The impulse-response 
technique was used to determine the transfer functions of the system. An impact hammer 
was applied at various nodes on the surface of the gearbox. Three accelerometers, one on 
a surface in the x-direction, another in the y-direction, and the last in the z-direction, were 
used to obtain the resulting responses from the impacts. Natural frequencies and their 
corresponding mode shapes excited during the experiment were evaluated using a two 
channel dynamic signal analyzer with a PC-based modal software. The modal characteristics 






found during the experiment were compared to those generated by the numerical model for 
verification purposes, as well as for the selection of numerically modelled mode shapes. 

5.2 Experimental Investigations of System Dynamics 

To study the dynamics of the system during operation, a 150kW(200 Hp) variable 
speed electric motor is used to power the rig at one end. An eddy-current dynamometer is 
used for power absorbing at the opposite end. The parameters of the test gears are given in 
Table 5.1. During this test, several accelerometers were placed on the x, y, and z surfaces 
of the gear box to monitor the vibrations of the gear box structure. In addition, two sets of 
non-contacting proximitors were placed inside the gear box at locations next to the gear mesh 
to monitor the vibrations of the two rotor systems. The vibration signals of the gear box 
surface and the rotors were recorded over a range of operating speeds from 1500 to 6000 
rpm. A two channel dynamic signal analyzer was used to compute the frequency spectra 
(waterfall diagram) of the vibrations of the gear box in x, y, and z directions. The 
frequency spectra for the lateral vibrations of the rotor at the gear locations were also 
computed. The results of this phase of the experimental work was compared to those from 
the numerical model for verification of the numerical procedure and improvement of the 
numerical modelling of the gear transmission components (bearing model, gear mesh model, 
rotor model, gear box model, etc.). 

5.3 Experimental Investigations of Gear Box Noise 

To investigate the relationship between the gear box vibration and the noise, a special 
noise test program was introduced. A special set of identical parallel axis gears (25 tooth) 
were used in this test. While the vibration measurement set-up is very similar to those 
mentioned in the previous section (5.2), two additional acoustic microphones were used in 
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this experiment. Both microphones were placed over the top cover of the gear box with one 
in the vertical direction and the other at a 45 degree angle from the vertical. Rotor 
vibration, gear box vibration, and the resulting noise was obtained while operating at various 
running speeds. A correlation between the gear box vibrations and the noise level was 
performed in the frequency domain using linear transfer and cross-correlation functions. The 
Nonlinear Hypercoherence function [Jong 1986] developed at NASA Marshall Space Flight 
Center was also used to generate a relationship between the noise and the vibration data in 
order to develop a noise prediction algorithm for the global dynamic model. 
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TABLE 5.1 - TEST GEAR PARAMETERS 


Gear Type Standard involute, full-depth tooth 

Number teeth 28 

Module, mm (diametral pitch in.' 1 ) 3.174 (8) 

Face width, mm (in.) 6.35 (0.25) 

Pressure angle, deg 20 

Theoretical contact ratio 1.64 

Driver modification amount, mm (in.) 0.023 (0.0009) 

Driven modification amount, mm (in.) 0.025 (0.0010) 

Driver modification start, deg 24 

Driven modification start, deg 24 

Tooth-root radius, mm (in.) 1.35 (0.053) 

Gear quality AGMA class 13 

Nominal (100 percent) torque, N-min(in.-lb) 71.77 (635.25) 
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6. CORRELATION AND BENCHMARKING OF SYSTEM DYNAMICS BY 
NUMERICAL PROCEDURES WITH EXPERIMENTAL RESULTS 

This chapter presents the correlation between the numerical simulations of the 

dynamics of the gear transmission system with the experimental results. Three major phases 

of the system dynamics were examined, namely; i) the gear box modal characteristics, ii) 

the dynamics of the rotor-gear systems, and iii) the vibration of the gear box structure. A 

detailed comparison and benchmarking of the results are given in the following sections. 

6.1 Gear Box System modal Characteristics 

To experimentally determine the modal characteristics of the gear box structure, the 
impact testing technique described in the previous chapter was applied to obtain the natural 
frequencies and mode shapes of the system. During this test, a total of 8 major vibratory 
modes were excited between a frequency range of 0 to 3000 Hz. The excited natural 
frequencies and their corresponding mode shapes are shown in Fig. 6. 1 . 

The experimentally obtained modes, shown in Fig. 6.1, represent the major vibration 
modes of the gear noise rig in the 0 to 3 kHz region. Although these modal frequencies are 
only a small part of the total modes of the system, they represent a major part of the total 
global vibration of the system. In order to produce an accurate analytical simulation of the 
test gearbox, a similar set of modes were generated using a finite element model 
(NASTRAN) of the gear box structure. Out of a total of 25 modes existing in the analytical 
model in the 0 to 3 kHz frequency region, the eight dominant modes were used to represent 
the gear box dynamic characteristics. These analytically simulated modes are shown in Fig. 
6.2. As shown in Table 6.1, the natural frequencies of the simulated modes are within 5 
percent of the measured modes. The three-dimensional analytical mode shapes are very 
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Mode 7 (2752 Hz) 


Mode 8 (3012 Hz) 


Figure 6.2 Analytically Determined Mode Shapes of the Gear Box 
(0 to 3000 Hz) 
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similar to the experimental modes shapes (Fig. 6. 1). The correlation of the results between 
the analytical model and the experimental measurements confirms the accuracy of the 
dynamic representation of the test gear box using only a limited amount of modes. In 
addition, this correlation of the experimental modal characteristics with the numerical model 
also helps to reduce the number of modes being used in the numerical simulation to achieve 
an accurate result. 

6.2 Rotor-Bearing-Gear Transient Vibrations 

For the dynamic study of the rotor-bearing system, it was found that, during a slow 
roll (low speed run) of the rotor-gear assembly, a substantial residual bow exists in the rotor 
system as shown by its large orbital motion given in Fig. 6.3. Figure 6.3A represents the 
orbit of the driver rotor at the gear location and Fig. 6.3B represents those of the driven 
rotor. Note that the circular orbit existed in the driver rotor at slow roll represents the 
residual bow deformation of the rotor. The elliptical orbit in the driven rotor is due to a 
combination of the residual bow effects and the vertical gear force from the torque of the 
driving rotor. In order to analytically simulate the influence of this effect, a residual bow 
of 2 mils (0.05 mm) is incorporated into the numerical model. 

To numerically simulate the dynamics of the rotor-bearing-gear system, the model 
shown in Fig. 6.4 was used. Figures 6.5 - 6.14 show the comparison of the rotor orbital 
motion between the numerical simulations and experimental studies for a range of operating 
speeds from 1500 - 6000 rpm, with a 500 rpm increment. In these figures (6.5 - 6.14), 
stage 1 represents the motion of the driving rotor near the gear mesh and stage 2 represents 
the driven rotor 
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TABLE 6.1 - COMPARISON OF EXPERIMENTAL 


MEASURED AND ANALYTICAL MODELED NATURAL FREQUENCIES 


Experimental, 

Analytical, 

Difference, 

Hz 

Hz 

percent 

658 

658 

0 

1049 

1006 

-4.1 

1710 

1762 

3.0 

2000 

2051 

2.6 

2276 

2336 

2.6 

2536 

1536 

0 

2722 

2752 

1.1 

2962 

3012 

1.7 
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near the gear mesh. Note that a substantial magnitude of the circular orbit in the driver rotor 
represents the residual bow deformation of the rotor. The elliptical orbit in the driven rotor 
is attributed to a combination of the residual bow effects and the normal gear force from the 
torque of the driving rotor. The slightly large amplitudes of orbital motion existing at 
running speeds of 1500 rpm and 5000 rpm are due to the excitation frequencies being closed 
to one of the natural frequencies of the rotor system. Very similar trends in orbital shapes 
and magnitudes were observed in both the experimental and numerical studies, which verifies 
the validity of the numerical procedures as well as the modelling accuracy. Figure 6. 15 and 
6.16 represent frequency spectra of the vibration generated from both the experimental and 
the numerical procedures. The excellent agreement in both results further verifies the 
validity of the numerical study. 

6.3 Gear Box Transient Dynamics 

In order to predict the noise of the transmission system during operation, the vibration 
of the gear box must be accurately modelled. In this section, the comparison between 
experimental and predicted gear box vibrations is presented. 

Figure 6.17, 6.18, and 6.19 present the vibration frequency spectra of the gear box 
surface from both experimental and numerical studies, in the x, y, and z directions, 
respectively. 

Note in Fig. 6. 17A, the experimental results of the casing vibration in the x-direction 
shows a major vibration component at 28 times the shaft frequency. This is due to the 
excitation of the gear tooth pass frequency (28 tooth gear) at the various shaft speeds. A 
closer examination of this excited frequency component shows that two major vibration peaks 
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occur at the running speeds of 1500 rpm, at the tooth pass frequency of 700 Hz, and at 5500 
rpm, at the tooth pass frequency of 2560 Hz. These peaks are a result of the tooth pass 
frequency exciting two of the major natural frequencies of the housing, namely the 658 Hz 
and 2536 Hz modes. The presence of other modes can be seen, however, the 658 and 2536 
Hz modes, when excited by the gear mesh frequency, dominate the spectra. 

When comparing the predicted vibration spectra with the measured spectra, it was 
found that although the actual amplitude values did not always agree, the general trends of 
the spectra were very similar. The predicted vibration spectra of the housing ir the x- 
direction is given in Figure 6.17B. In comparing Figures 6.17A and 6.17B, the predicted 
amplitude at the gear mesh frequency at 1500 rpm is only 3% above the measured value. 
The comparison at 5500 rpm is not that close, where the predicted amplitude is 38% below 
the measured value, in comparing trends, the predicted spectra show the same gear mesh 
frequency induced excitation of the 658 Hz and 2536 Hz modes, as found in the measured 
spectra, at the running speeds of 1500 and 5500 rpm, respectively. 

Figures 6.18A and 6.18B, and Figures 6.19A and 6.19B present the comparison of 
predicted and measured housing vibration spectra in the y and z directions, respectively. 
The results of the comparison are the same as those presented for the housing vibration in 
the x-direction (Figure 6.17A and 6.17B). Actual values of the components in the spectra 
were not always in good agreement, however, the general trends between the predicted and 
measured housing vibration spectra were very similar. Also, as seen in Figure 6. 19B, at the 
1500 rpm speed, the model predicts the second and third harmonic of the gear mesh 
frequency. As shown in Figure 6.19A, the measured vibration confirms the presence of 
these two harmonics at the 1500 rpm running speed. 
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7. 


CORRELATION OF NOISE AND VIBRATION 


In order to predict the noise generated in a gear transmission system, a two-phase 
procedure was developed to correlate the noise and vibration data obtained during 
experimental studies; namely, i) linear correlation through transfer functions, and ii) 
nonlinear correlation through hypercoherencc functions. The relationships derived in this 
study are used to predict gear box noise from the numerical simulations of the gear box 
vibrations. A detailed description of the procedures used are presented in the following 
sections. 

7.1 Correlation of Experimental Noise and Vibration Data 

In this experiment, a new set of gears consisting of two identical 25-tooth gears were 
installed in the gear box shown in Fig. 5.2. While the vibration of the gear box surfaces was 
monitored by accelerometers, as described in section 6.2, the noise data was obtained by 
microphones, as described in section 6.3. The vibration data for the top surface of the gear 
box for operating speeds of 3000, 4000, and 5000 rpm are shown in Fig. 7.1, with the 
corresponding noise data given in Fig. 7. 2. A and 7.2.B. Figure 7.3 presents the frequency 
and power spectra of both the vibration and noise signals at 3000 rpm running speed. Note 
that in the vibration spectrum, a small frequency component exists at the mesh frequency of 
1250 Hz with two very large components at 3-times the mesh frequency (3750 Hz), and 4- 
times mesh frequency (5000 Hz). In the noise spectrum, while frequency components of 
considerable magnitudes are observed at the mesh frequency of 1250 Hz, and at 2 and 3- 
times mesh frequency (2500 and 3750 Hz), a large amplitude frequency component is also 
noticed at 400 Hz. This 400 Hz frequency component does not coincide with any of the 
major vibration frequencies at the top surface of the gear box. A closer examination of the 
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system dynamic characteristics reveals that the 400 Hz frequency is an excitation of one of 
the natural frequencies of the rotor system, which has a very small amplitude in the gear box 
vibration spectrum. A logical explanation is that noise is being produced at the rotor-gear 
system at 400 Hz and is not being transferred to the vibration of the gear box surface. This 
phenomenon is further verified by the very large amplitude of the vibration-to-noise transfer 
function at 400 Hz as given in Fig. 7.4A. A linear coherence function between the noise and 
vibration signals is also given in Fig. 7.4B. 

Figure 7.5 shows the comparison of the frequency and power spectra between the 
results of the gear box vibrations with the noise signal from microphone No. 2 (45 degrees 
from vertical). Note that in this case, the two signals are much better correlated. In Fig. 
7.5B, the noise spectrum shows the largest component at 3-times mesh frequency (3750 Hz) 
and two other major components at mesh frequency (1250 Hz) and 4-times mesh frequency 
(5000 Hz). Although a sizable component still exists at 400 Hz, it is relatively small 
compared with those of the multiples of the mesh frequency. Again, the logical explanation 
for this phenomenon is due to the fact that the 400 Hz frequency component produced by the 
rotor will not radiate through the gear box surface and cannot be picked up by the 45 degree 
microphone. The vibration-to-noise transfer and coherence functions for the second 
microphone are given in Fig. 7.6. 

Figures 7.7 and 7.8 present respectively the frequency and power spectra, and the 
transfer and coherence functions of the gear box system at the rotor running speed of 4000 
rpm. The frequency spectra in Fig. 7.7 shows a significant frequency component at the 3- 
times mesh frequency (5000 Hz) while major noise components are noted at the rotor natural 
frequency of 400 Hz and the primary mesh frequency (1667 Hz). The results are attributed 
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Figure 7.8 (a) Transfer function and (b) coherence function, between noise 

(microphone no. 1) and vibration at the operating speed of 
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to the fact that the noise due to the natural frequencies of the rotor system do not effectively 
ct ntribute to the vibration of the gear box. The significant amplitudes in the vibration 
spectrum, other than the original mesh frequency, is due to the excitation of the natural 
frequencies of the gear box at the multiples of the mesh frequency. In the case of the 3000 
rpm running speed, natural frequencies of 3750 rpm (3-times mesh frequency) and 5000 rpm 
(4-times) are excited. Figure 7.9 shows the comparison of the frequency spectra of the 
second microphone. Note again, that the 400 Hz component diminishes while the noise 
frequency components of the basic mesh frequency and its multiples are the major 
contributors. The transfer and coherence functions for this case is given in Fig. 7.10. 

For the case of a rotor running speed of 5000 rpm, the frequency and power spectra 
of the gear box vibration and noise are given in Fig. 7.11. Note that the major vibration 
frequencies excited are the basic mesh frequency at 2083 Hz, 2-times at 4166 Hz, and 3- 
times at 6250 Hz. The magnitudes of these components are relatively lower than those at 
the 4000 rpm running speed. This is due to the fact that these frequencies are not close to 
any of the major vibration modes of the gear box. Even though at this running speed the 
noise frequency spectrum shows a more consistent trend with the vibration spectrum, a 
strong frequency component still exists at 400 Hz, which is not detected in the vibration 
spectrum. The transfer and coherence spectra for this case is given in fig. 7.12. For the 
second microphone, the noise signal spectrum, Fig. 7.13, shows a similar trend as those of 
microphone No. 1, with a considerably smaller 400 Hz component. The transfer and 
coherence function for this case is given in Fig. 7.14. 

From the above discussion, it can be concluded that in the frequency domain, most 
of the noise components, other than the 400 Hz contributions, exist at multiples of the mesh 
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frequency. The Nonlinear Hypercoherence Function, developed by NASA Marshall Space 
Flight Center for the Space Shuttle Noise Test Program, is used for the sec ond phase of this 
study. The Hypercoherence Function [Jong 1986] will establish a nonlinear relationship 
between the basic frequency component with its multiple harmonics. Figu e 7. 15 shows the 
Hypercoherence functions of the noise signals for the 3000, 4000, and 500 J rpm cases. The 
magnitudes of the components in the harmonics are the nonlinear re ationship of that 
component with the basic harmonic frequency. These relationships provide a picture of the 
relative contribution of the higher harmonics with respect to the basic frequency. Note that 
as the running speed increases, the magnitudes of the higher harmonics also increase. This 
is very similar to the conclusions drawn from the linear study discussed in the last 
paragraph. In the next section, this Hypercoherence function will be used on the numerical 
simulation data to examine the accuracy of the noise prediction. 

7.2 Predictions of Noise by Numerical Simulations and Correlation with 

Experimental Results 

In order to predict the noise level of the transmission system during operation, the 
vibrations of the gear box structure are simulated using the modal synthesis approach 
discussed in the previous chapters. Figure 7.16B shows the analytically predicted time 
vibration signal (acceleration) at the top of the casing structure at an operating speed of 3000 
rpm while the corresponding experimental results are given in Fig. 7.16A. Note that the 
amplitudes and general shapes of the two time signals are very similar. The comparison of 
their frequency contents are given by the frequency spectra in Fig. 7.17. Figure 7.17A 
shows the frequency components of the measured vibration at the top of the gear box. Note 
that the major vibration components occur at the mesh frequency of 1250 Hz and at 3-times 
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Figure 7.17 Vibration frequency spectra at top of gear box for operating 
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numerical simulations . 
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29 


(3750 Hz) and 4-times (5000 Hz) the mesh frequency. The very large amplitude in the 
frequency components at 3750 Hz and 5000 Hz are due to the excitation of the gear box 
natural frequencies near the 3-times and 4-times multiples of the mesh frequency. The 
fundamental and the 2-times mesh frequency component are substantially smaller due to the 
lack of any gear box natural frequencies near 1250 Hz and 2500 Hz. In addition, frequency 
components of substantial magnitude are also noticed at 700 Hz and 2900 Hz, which are also 
close to the natural frequencies of the gear box. Figure 7.17B depicts the results from the 
numerical simulations of the system. The numerical resells correspond closely to those from 
the experimental study with the exception of the 4-times mesh frequency component. The 
magnitude and the general distribution of the frequency content of the spectrum is very 
similar to the experimental results. 

To develop a predictive algorithm for the noise level in the gear box, the experimental 
transfer function developed with noise/vibration data is used in this study. The transfer 
function for Microphone No. 1 (vertical to he plate) is given in Fig. 7.18A and for 
microphone No. 2 (45 degrees with the plate) is given in Fig. 7.18B. By taking the product 
of the transfer functions with the vibration frequency spectrum, the frequency spectra for 
both the microphone cases can be evaluated. Figure 7.19 shows the comparison of the 
results of the experimental noise, Fig. 7.19A, with the predicted noise, Fig. 7.19B, for the 
vertical microphone. Although all the major frequency components excited in both cases are 
very similar, one can see that the predicted noise spectrum, Fig. 7.19B, has a much higher 
amplitude at mesh frequency and a very small 4-times mesh frequency component as in the 
vibration spectrum. Comparing the results for the 45-degree microphone, Fig. 7.20, a 
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predicted noise results from microphone no. 2 at the 
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similar conclusion can be drawn for the predicted noise (larger amplitudes in most of the 
frequency components). 

Another way of examining the validity of the predicted noise signal is through the 
nonlinear relationships derived by the Hypercoherence Function. The Hypercoherence 
function developed by NASA Marshall Space Flight Center is used primarily for the space 
shuttle noise program to generate nonlinear relationships between the fundamental frequency 
component and the integer multiples of the fundamental. A time signal for the gear box 
noise is required for this analysis. Figure 7.21 depicts the time signal for the gear box 
noise, from experimental study, (Fig. 7.21A), and from numerical simulations (Fig. 7.21B), 
for microphone No. 1. A set of the experimental and numerical noise data for microphone 
No. 2 is also given in Fig. 7.22. Figures '.23 and 7.24 show the comparison of the 
hypercoherence functions from both experimental and numerical solutions correspondingly 
for microphone No. 1 and No. 2. For microphone No. 1, both the experimental and 
numerical results show a very small 2-times component, with a substantial amplitude at 3, 
4, and 5 times fundamental frequency. However, a 50% coherence is found in the 3, 4, and 
5 times components from numerical predictions, Fig. 7.23B, while only about a 25% 
coherence is seen from the experimental results Fig. 7.23A. A similar conclusion can also 
be drawn from the results of microphone No. 2, Fig. 7.24. The difference in the numerical 
solution results from the experimental results are possibly due to the limitation of the 
numerical model in simulating various details and imperfections in the gear box transmission 
system. A logical explanation of the much higher (nearly double) coherence amplitudes in 
the numerical study is that only the major frequency-related vibration contributing factors 
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Figure 7.23 Hypercoherence function of the noise signal from (a) experimental data, and 
(b) from numerical predictions, for microphone no. 1 at the operating speed 
of 3,000 rpm 




Figure 7.24 Hypercoherence function of the ncise signal from (a) experimental data, and 
(b) from numerical predictions, for microphone no. 2 at the operating speed 
of 3,000 rpm 




are included in the model, which results in a predicted vibration signal consisting mostly of 
frequency components which are closely related to the fundamental frequency. 

8. CONCLUSIONS AND SUMMARY 

A methodology has been developed using the modal synthesis technique to simulate 
the global dynamics of a gear transmission system. Excellent correlation has been obtained 
using results from the global dynamic model and measured dynamic characteristics from the 
NASA gear noise test rig. A numerical relationship was also developed from the 
experimental data to correlate noise and vibrations in the frequency domain. The developed 
noise\vibration relationships are applied to the vibration simulations to predict the noise of 
the gear box. Results of the predicted noise are compared to the experimentally measured 
data linearly using the frequency spectra and nonlinearly using the hypercoherence function. 
The major accomplishments/conclusions of this study can be summarized as follows: 

1. The dynamics of a gear transmission system coupled with the vibrations of the gear 
box structure during operation can be simulated accurately using the modal synthesis 
technique. 

2. Gear system dynamic characteristics such as imbalance, shaft residual bow, gear mesh 
nonlinear stiffness, gear tooth friction, coupled axial and lateral bearing stiffness, and 
gyroscopic effects are also incorporated into the global dynamic model. 

3. Experimental results of both gear vibration and noise are obtained using the NASA 
gear noise test rig for benchmarking and correlating with the numerical predictions. 
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The accuracy of the rotor and the gear box model can be improved by matching the 
modal characteristics calculated numerically with those obtained through experimental 
testing. 

The choice and the number of vibratory modes selected to simulated the gear box 
vibration can be selected according to those excited experimentally by the impulse 
response technique. Such selection not only will reduce the number of modes used, 
which can significantly improve computational efficiency, it also will provide an 
accurate simulation of the dynamics of the system. 

Predicted vibrations at the housing surface using the global dynamic model are in 
good agreement with measured values. 

A set of linear relationships are developed between the gear box noise and vibration 
using transfer functions and both experimental noise and vibration spectra. 

The developed transfer functions are applied to the numerically simulated gear box 
vibrations to predict noise generated from the transmission system. Both the 
frequencies and magnitudes of the predicted noise components are very similar to 
those obtained from experimental study. 

An examination of the nonlinear relationships of the noise components with the 
fundamental frequency (gear mesh frequency) is performed using the hypercoherence 
function. A comparison of these relationships between the predicted noise and the 
measured noise is also presented. 


9. 
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APPENDIX A 


For the massless beam element shown in Fig. Al-a, the dynamic characteristics of 
the element can be represented as (16-18): 
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The subscript i in the matrix equations designates the nodal number of the element and the 
superscripts L and R designate the left- and right-hand side location at the concentrated mass 
station. With the inertia model shown in Fig. Al-b the dynamic effects between the mass 
stations can be expressed in matrix form as 
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where Kj is the stiffness of the i lh spring. 
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Using the beam element model developed with the matrix transfer technique, the dynamics 
of the beam structure can be related from the left end to the right end by multiplying the 
series of matrices as 


where 
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Using a simple support boundary condition such that the displacements and moments at the 
ends vanish, the overall global matrix can be written as 
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such that the determinant of the matrix will vanish at the natural frequencies of the system. 
A marching technique can be used to determine the fundamental frequencies of the system 
by searching for the zeros of the determinant at a given range of frequencies. 
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APPENDIX B 


(INPUT INSTRUCTIONS) 


1. C0M1, COM2, COM3 

2. NSTA, NKTB , NSK 
NSTA 

NKTB 

NSK 

3. INSK(I), 1=1, NSK 


— COMMENT CARD 

— NO . OF TOTAL ROTORS 

— NO. OF CONNECTING GEARS STIFFNESS 

— NO. OF SLANTED ROTORS 


LOCATION NO. OF SLANTED ROTOR 

4. ANGL( INSK (I) , J) , J=l, 3; 1=1, NSK 
ANGLE OF SLANTED ROTOR 

5. JST(I), 1=1, NSTA 

THE LOCATION NO . OF GEAR OF iTH ROTOR 

6. ALPH ( I , J) , 1=1 , NSTA; J=1,NSTA 
ANGLE BETWEEN GEARS 

7. RCC(I), 1=1, NSTA 
RADIUS OF GEARS 

8. TOUT (I) , 1=1, NSTA 

INPUT EXTERNAL TORTIONAL TORQUE OF ROTORS 

9. FORCEZ(I), 1=1, NSTA 

INPUT EXTERNAL AXIAL FORCE OF ROTORS 

10. NP1(I), XG1(I), XMAXl(I), PSll(I), 1=1, NKTB 

NP1 — NO. OF SPUR'S POINTS OF GEAR 

XG1 — ANGLE BETWEEN THE SPURS OF A PAIR OF GEAR 

XMAX1 — ANGLE DURING TOUCH PERIOD 
PS11 — PHASE ANGLE OF A PAIR OF GEARS 

11. XK(K, I) , YK(K, I) , 1=1, NP1(K); K=1 , NKTB 

XK — ANGLE OF iTH POINT OF kTH GEAR 

YK — STIFFNESS OF iTH POINT kTH GEAR 

12. NTTD(I), 1 = 1, NSTA 

NO . OF GEARS FOR EACH ROTOR 

13. LLTD ( I , J) , 1=1 , NTTD ( J) ; J=1,NSTA 

LOCATION NO. OF GEARS 

14. TTCC ( I , J) , 1=1, NTTD (J); J=1,NSTA 

GEAR DAMPING 
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15. AB, OMEGA, FAB 

AB — AMPLITUDE IF BASE MOTION 

OMEGA — ROTATION SPEED OF BASE MOTION (RAD/SEC) 

FAB — PHASE ANGLE OF BASE MOTION 

16. NMODE 

MODES NO. OF ROTORS 

17. N, NB, NNLIN , NMB, NF, NU , NS, NBOW, ISTAB, IMODE, ISKU, NOT, 
NUFPT 

N — NO. OF MASS STAGE OF ROTOR 
NB — NO. OF REGULAR LINEAR BEARINGS OF ROTOR 
NNLIN — NO. OF NONLINEAR BEARINGS OF ROTOR 
NMB — NO. OF MOMENT RESISTING BEARINGS 
NF — NO. OF EXTERNAL FORCE 
NU — NO. OF UNBALANCE 
NS — NO. OF SKEW DISK 
NBOW =1 — WITH BOW SHAFT 

=0 — NO BOW SHAFT 

ISTAB =1 — NO STABILITY CALCULATION 

=0 — WITH STABILITY CALCULATION 

IMODE — NO . OF DAMPED MODAL SHAPES DESIRED , 

IF IMODE = 0 , NO MODAL SHAPE CALCULATION 
ISKU — NO. OF SKEW STAGES 

NCT — NO. USED IN MODES CALCULATION 

NUFPT — NO. OF STAHE NEEDED TO PRINTOUT FOR UNBALANCE 

18. ISKIP, NSTEP, NSYSLE, NITP, NINT, NPLOT, NORBIT, NTIME, NSPEED, 
NINC, NOPT, NT 

ISKIP =1 — NO CALCULATION 

= 0 — CALCULATE TRANSIENT ORBIT 

NSTEP — NO. OF STEPS OF INTERGRATION PER CYCLE 

NCYCLE — NO. OF CYCLES 
NITP — NO. OF STEPS PER PRINTOUT 

NINT =1 — NEWWARK BETA METHOD 

NPLOT =1 — NO PLOT 

= 0 — WITH PLOT 

NORBIT — NO. OF TRANSIENT ORBIT STAGES DESIRED 
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NTIME — NO. OF STAGES TO BE PLOTTED IN RESPONSE VS TIME 

CURVE 

NSPEED = 0 

NINC = 0 — INPUT INITIAL CONDITION 

= 1 — INITIAL CONDITION FROM STEADY STATE ORBIT 

(WITH SMALL PERTUBATION) 

=2 — INPUT MODAL INITIAL DATA 

NOPT =0 

NT — NO. OF STAGES FOR TRANSIENT PRINTOUT 

19. LLBD(J) , J=l, NB 
LOCATION NO. OF BEARINGS 

20. KXX , KXY , KYX , KYY, KXA, KAX, KAA, KXB, KBX, KBB , 

KXZ , KYZ, KZY , KZA, KAZ, KZB, KBZ , KZZ 
BEARING STIFFNESS 

21 CXX, CXY , CYX, CYY , CXA, CAX, CAA, CXB, CBX, CBB, 

CZX, CZY , CZA, 

BEARING DAMPING 
AND: 

X — DIRECTION OF X 
Y — DIRECTION OF Y 
A — DIRECTION OF X ROTATION 
B — DIRECTION OF Y ROTATION 
Z — DIRECTION OF Z 

22. LLNB(J) , NLB(J) , VIS(J) , ANR(J) , ANL(J) , ANC(J) , J=1,NNLIN 
LLNB — LOCATION NO. OF NONLINER BEARINGS 

NLB — BEARING NO. OF NONLINEAR BEATINGS 
VIS — VISCUSITY OF LUBRICATE (LB/ IN**2) 

ANR — RADIUS OF BEARING (IN) 

ANL — LENGTH OF BEARINGS (IN) 

ANC — CLEARANCE OF BEARING (IN) 

23. LLNMB(J), J=1,NMB 

LOCATION NO. OF MOMENT RESISTING BEARING 

24. SLNMB ( I , J , K) , CLNMB(I,J,K) , 1 = 1, NMB; J=l,4; K=1 , 4 
NMB SETS, EACH SET 4 CARDS. THESE ARE THE 
BEARING STIFFNESS AND DAMPING COEFFICIENTS FOR 
MOMENT RESISTING BEARING 
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25. NGYR — NO. OF GYROSCOPIC ROTOR 
E — SECTION YOUNG'S MODULUS 
SPEED1 — ROTOR'S OPERATING SPEED (RPM) 

SPEED2 — ROTOR'S INITIAL OPERATING SPEED (RPM) 

ANGACL — ANGULAR ACCERATION OF ROTOR 

BETA — BETA PARAMETER USED FOR NEWMARK BETA METHOD 

26. EXTW(J) , DX ( J) , DDXT(J) , DDNT(J) , RP(J) , RT(J) , EM6(J) , 
RO(J) , GGO(J) , TK(J) , J=1 , N 

EXTW — INPUT EXTERNAL WIGHT PER ELEMENT OF ROTOR 
DX — ELEMENT LENGTH OF ROTOR 
DDXT — EXTERNAL DIAMETER PER ELEMENT OF ROTOR 
DDNT — INTERNAL DIAMETER PER ELEMENT OF ROTOR 
RP — POLAR INERTIA MOMENT PER ELEMENT OF ROTOR 
RT — TRANSVERSE INERTIA MEOMET PER ELEMENT 
OF ROTOR 

EM6 — YOUNG ' S MODULUS PER ELEMENT OF ROTOR 
RO — DENSITY PER ELEMENT OF ROTOR 
GGO — SHEAR'S MODULUS PER ELEMENT 
TK — TORTIONAL CONSTRAINT MOMENT PER ELEMENT 

27. LLFF(J) , FX(J) , FY ( J) , J=1,NF 

LLFF — LOCATION NO. OF EXTERNAL FORCE OF ROTOR 
FX — EXTERNAL FORCE ON X-DIRECTION 
FY — EXTERNAL FORCE ON Y-DIRECTION 

28. LLUF(J), UX(J), UY(J), SUX(J), SUY(J), J=1,NU 

LLUF — LOCATION NO. OF UNBALANCE OF ROTOR 
UX — X-DIR UNBALANCE (OZ-IN) 

UY — Y-DIR UNBALANCE (OZ-IN) 

sux — SUDDEN INCREASE UNBALANCE OF X-DIRECTION 

SUY — SUDDEN INCREASE UNBALANCE OF Y-DIRECTION 

29. LLSK(J) , FSK(J) , PSK(J) , J=1,NS 

LLSK — LOCATION NO. OF SKEW DISK 
FSK — MAX. SKEW IN RADIAN 

PSK — ANGLE BETWEEN MAX. SKEW TO THE X AXIS 

30. LLUT(J), J=1 , NUFPT 

LOCATION NO. FOR PRINTOUT OF UNBALANCE RESPONSE 
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31. LLNT(J), J=l, NT 

LOCATION NO. FOR PRINTOUT OF ROTOR IN TRANSIENT 
ANALYSIS 

32. NAB, CTIME 

SKIP IF NINC IS NOT EQUAL TO 2 

NAB — NO . OF MODES 

CTIME — FINAL TIME OF PRESENT RUN 

33. A3 (1, J) , B3 (1, J) , A2 (1, ) , B2 (1, J) , J=1,NAB 
SKIP IF NINC NOT EQUAL TO 2 

MODAL DISPLACEMENT AND VELOCITY AT FINAL STEP 
OF PRESENT RUN 

34. BOW ( J ) , PBOW(J) , XIDC(J) , YIDC(J) , VXIDC(J) , VYIDC(J) , J=1,N 
SKIP IF NBOW=0 

BOW — INITIAL BOW 

PBOW — ANGLE OF BOW 

XIDC — INITIAL DISPLACEMENT IN X-DIRECTION 

YIDC — INITIAL DISPLACEMENT IN Y-DIRECTION 

VXIDC — INITIAL VELOCITY IN X - DIRECTION 
VYIDC — INITIAL VELOCITY IN Y- DIRECTION 

35. SPI, SPL, DSP 

SPI — INITIAL SPEED FOR CRITICAL SPEED 

SPL — FINAL SPEED FOR CRITICAL SPEED 

DSP — SPEED INCREMENT FOR CRITICAL SPEED 

36 SPE1 , SPE2 , SPE3 

SPE1 — INITIAL SPEED FOR TORTIONAL CRITICAL SPEED 
SPE2 — FINAL SPEED FOR TORTIONAL CRITICAL SPEED 
SPE3 — SPEED INCREMENT FOR TORTIONAL CRITICAL SPEED 

37. SPS, SPF, SPN 

SPS — INITIAL SPEED FOR UNBALANCE RESPONSE CAL. 

SPF — FINAL SPEED FOR UNBALANCE RESPONDE CAL. 

SPN — SPEED INCREMENT FOR UNBALANCE RESPONSE CAL. 

38. NBMOP 

BASE MOTION LOGIC, IF NBMOP = 0, SKIP 

1, A (T) = ALPHA* (E**B*T) *COS (W1*T) 

2, A (T) = ALPHA * C0S(W1*T) *COS(W2*T) 
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39. AC0N1 ( I ) , ACON2 ( I ) , APH 1(1), APH2 ( I ) , 1=1, NB 
SKIP IF NBMOP NOT EQUAL 0 

EACH VARIABLE FOR ALPHA, B, Wl, W2 FOR 
A (T) =ALPHA*COS (W1*T) *COS(W2*T) 

40. NSRUB, NSEU 
SKIP IF NSRUB = 0 

NSRUB — NO. OF RUB ST \GES 

NSEU — NO. OF SUDDE1 INCREASE UNBALANCE STAGES 

41. NFACT, IND, KR, ABSO 
SKIP IF NSRUB = 0 

NFACT — STEP FACTOR )F RUB 
IND =0 — FOR CASING STIFFNESS 

= 1 — BLADE EQUATION 

=2 — LINEARIZED STIFFNESS 

KR — DIRECT CASING STIFFNESS 

ABSO — FRICTION COEFFICIENT 

42. NRUB(J) , CLEAR (J) , J=: , NSRUB 
SKIP IF NSRUB = 0 

NRUB — LOCATION NC . OF RUB STAGE 

CLEAR — CLEARANCE l ETWEEN ROTOR AND CASING 

43. ABL1 , ABL2 , ABL3 

THREE TITLE CARDS OFR LABEL IN PLOTS 

44. NMBB , NDB, NODEB 

NMBB — MODES NO. OF BOX 

NDB — NO. OF NODES OF BOX 

NODEB — DEGREE OF FREEDOM FOR EACH NODE 

45. LBLBT ( I , K) , 1=1, NNB(K), K=1,NSTA 
LOCATION NO. OF BEARING ON BOX 

46. BKZZ (I , K) , 1=1, NNB(K), K=l, NSTA 
Z -DIRECTION CASING STIFFNESS 

47 . NPT 

NO. OF BOX'S NODES FOR DEFORMATION ANALYSIS 
43. NPTNO(I), 1=1, NPT 

LOCATION NO. OF NODES FOR DEFORMATION ANALYSIS 
49. OMEGS ( IN) , IN=1, NMBB 

NATURAL FREQUENCIES OF BOX 
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50. IA, BX1 ( IN, ID, IX) , IX=1 , 5 ; ID=1,NDB; IN-1, NMBB 
IA — NODE NUMBER 
BX1 — MODAL SHAPES OF BOX 
AND: 

IX = 1 — MODAL SHAPES IN X-DIRECTION 

= 2 — MODAL SHAPES IN Y-DIRECTION 

= 3 — MODAL SHAPES IN Z-RIRECTION 

= 4 — MODAL SHAPES IN X-ROTATION 

= 5 — MODAL SHAPES IN Y -ROTATION 

NOTE: DATA IN CARDS 49 AND 50 CAN BE OBTAINED THROUGH RUNNING 

NSTRAN PROGRAM. 
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APPENDIX C 

(COMPUTER PROGRAM LISTING) 
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This program calculates the dynamics of a multi-stage rotor- 
bearing-gear system coupling with the vibrations of the gear box 
structure. The modal synthesis procedure is used in this program. 
Undamped critical speeds and orthonormal modes of the rotor 
bearing system is calculated by the matrix transfer method. The 
orthonormal modes of the casing (gearbox) structure are evaluated 
using a finite approach (NASTRAN) such that output of NASTRAN can 
be read directly into the program as data file. Transient and 
steady state vibrations of the system will be evaluated by solving * 
the equations of motion in the modal coordinates. In addition, the * 
program will handle other dynamic effects such as: 

- multi-stage rotor bearing system 

- mass imbalance, shaft residual bow, and disk skew 

- effects of base motion 

- input of nonlinear gear stiffness 

- 3-dimensional lateral-torsional coupled bearing stiffness 

- coupling casing vibration effects 

The output of the program will be given in files that can be read 
directly in any IBM compatible PC for plotting of data. The main * 
files are given as follows: * 


gear.dat 
box. dat 
orbitl . dat 
orbit2 . dat 
x_modal . dat 
y_modal . dat 


gear force 

deformation at top of gearbox 
first stage orbit at gear station 
second stage orbit at gear station 
modal amplitude in x-dir for each stage 
modal amplitude in y-dir for each stage 


* The program is written by: 


* 

* 


* 

* 

* 


* 

* 

* 

* 


BY F.K. CHOY & W. QIAN 


DEPARTMENT OF MECHANICAL ENGINEERING 


* 

* * 

* UNIVERSITY OF AKRON, AKRON, OH 44325 * 

* * 

* NOV. 10,1992 * 

****************************** *c *************************************** 


C THERE ARE THREE PARTS: 

C 1 . PROGRAM 

C 2. SAMPLING DATA 

C 3. INPUT DATA INSTRUCTION ( APPENDIX ) 


******* 

PARTI. * PROGRAM * 

******* 

IMPLICIT REAL ( A-H , O-Z ) 

REAL MFX , MFY , MU Y , MUX , KMX , KMY , MBX , MBY , KR 

REAL KXX , KXY , KXA , KXB , KXZ 

REAL KYX , KY Y , KYA , KYB , KYZ 

REAL KAX , KAY , KAA, KAB, KAZ 

REAL KBX , KBY , KBA , KBB , KBZ 

REAL KZX , KZY , KZA , KZB, KZZ 


C BEARING STIFFNESS 

C X — DIRECTION OF X 

C A — DIRECTION OF X ROTATION 

C Y — DIRECTION OF Y 

C B — DIRECTION OF Y ROTATION 
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noooooo 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


CHARACTER 

CHARACTER 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

BEARING 

BEARING 

X - 
A - 
Y - 
B - 
Z - 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


— DIRECTION OF Z 
COM1 (80) , COM2 (80) , COM3 (80) 

ABL1 (80) , ABL2 (80) , ABL3 (80) 

KXX (30) , KXY (30) ,KXA(30) ,KXB(30) ,KXZ(30) 
CXX(30) , CXY (30) , CXA (30) , CXB (30) , CXZ (30) 
KYX (30) , KYY ( 30) , KYA ( 30) , KYB(30) ,KYZ(30) 
CYX(30) , CYY (30) , CYA(30) , CYB(30) , CYZ (30) 
KAX (30) , KAY (30) ,KAA(30) , KAB(30) , KAZ(30) 
CAX (30) , CAY (30) , CAA(30) , CAB(30) ,CAZ(30) 
KBX (30) , KBY (30) , KBA(30) , KBB(30) , KBZ(30) 
CBX (30) , CBY (30) ,CBA(30) ,CBB(30) ,CBZ(30) 
KZX (30) , KZY (30) ,KZA(30) ,KZB(30) ,KZZ(30) 
CZX (30) , CZY (30) , CZA (30) ,CZB(30) ,CZZ(30) 


STIFFNESS 
DAMPING 

— DIRECTION 

— DIRECTION 

— DIRECTION 

— DIRECTION 

— DIRECTION 
ENER(IOO) 
DEFL(IOO) 
SWl(lOO) , 
WMOD (50) 
EANl(lOO) 


K** 
C** 
OF X 
OF 
OF 
OF 
OF 


ROTATION 

ROTATION 


EYl(lOO), EY2 ( 100) , DPC(IOO) 
LB ( 100 ) , SK(IOO), WA (50) 

El (100) 


EAN2 (100) , EYTH (100) , TMX ( 10 , 10) 


NORUB (100) , GAP (100) ,APH1(10) ,APH2(10) ,SNLB(5,8,3) 


COMMON /ADD1/ TKXX(10 
1 , 5) , TCXX (10,5 

COMMON /ADD2/ TKYX(10 
L , 5 ) , TCYX (10,5 

COMMON /ADD 3/ TKAX(10 
L , 5) , TCAX (10,5 

COMMON /ADD4/ TKBX(10 
L , 5) ,TCBX(10, 5 

COMMON /ADD5/ TKZX(10 
L , 5) ,TCZX(10, 5 

BEARING STIFFNESS 

BEARING DAMPING 


,5) , TKXY (10,5) , TKXA(10, 
) , TCXY ( 10 , 5) , TCXA(10, 5) 
,5) , TKYY (10,5) , TKYA ( 10 , 
) , TCYY ( 10 , 5) , TCYA(10, 5) 
,5) , TKAY (10,5) , TKAA(10, 
) , TCAY (10,5) , TCAA(10, 5) 
,5) , TKBY (10,5) , TKBA ( 10 , 
) , TCBY ( 10 , 5) , TCBA(10, 5) 
,5) , TKZ Y (10,5) , TKZA( 10 , 
) , TCZY (10,5) , TCZA (10,5) 
TK** 


5) , TKXB ( 10 , 
,TCXB(10, 5) 
5) , TKYB ( 10 , 
, TCYB ( 10 , 5) 
5) , TKAB ( 10 , 
, TCAB ( 10 , 5) 
5) , TKBB ( 10 , 
, TCBB (10,5) 
5) , TKZB ( 10 , 
, TCZB ( 10 , 5) 


5) ,TKXZ (10 
,TCXZ (10, 5) 
5) , TKYZ (10 
, TCYZ ( 10 , 5) 
5) , TKAZ ( 10 
, TCAZ (10,5) 
5) , TKBZ (10 
,TCBZ (10, 5) 
5) , TKZZ ( 10 
, TCZZ (10,5) 


X 

A 

Y 

B 

Z 


DIRECTION 

DIRECTION 

DIRECTION 

DIRECTION 

DIRECTION 


TC** 
OF X 
OF 
OF 
OF 
OF 


X 

Y 

Y 
Z 


ROTATION 


ROTATION 


COMMON /ADD6/ TOC ( 16) , TOD ( 16) , TOE ( 16) 
TOC — BOX'S Z -DIRECTION DEFORMATION 
TOD — BOX'S X -ROTATION DEFORMATION 
TOE — BOX'S Y-ROTATION DEFORMATION 


COMMON /BLK1/ N , NB, NNLIN, NMB, NF , NU , NS , NBOW, ISTAB, IMODE, ISKU NCT NU 
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FPT 

N — NO. OF MASS STAGE OF ROTOR 

NB — NO. OF REGULAR LINEAR BEARINGS OF ROTOR 

NNLIN — NO. OF NONLINEAR BEARINGS OF ROTOR 

NMB — NO. OF MOMENT RESISTING BEARINGS 

NF — NO. OF EXTERNAL FORCE 

NU — NO. OF UNBALANCE 

NS — NO. OF SKEW DISK 

NBOW =1 — WITH BOW SHAFT 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


=0 — NO SHAFT BOW 

ISTAB =1 — NO STABILITY CALCULATION 

=0 — WITH STABILITY CALCULATION 

IMODE — NO OF DAMPED MODAL SHAPES DESIRED 
IF = 0, NO MODAL SHAPE CALCULATION 
ISKU — NO. OF SKEW STAGES 

NCT — NO. USED TO CALCULATE MODES OF ROTOR 

NUFPT — NO. OF STAGE NEEDED TO PRINTOUT FOR UNBALANCE 

COMMON /BLK2/ ISKI P , NSTEP , NCYCLE , NITP , NINT , NPLOT , NORBIT , NTIME , NSPE 
1 ED, NINC, NOPT, NT 

ISKIP =1 — NO CALCULATION 

=0 — CALCULATE TRANSIENT ORBIT 

NSTEP — NO. OF STEPS OF INTEGRATION PER CYCLE 
NCYCLE — NO. OF CYCLES 
NITP — NO. OF STEPS PER PRINTOUT 
NINT =1 — NEWWARK BETA METHOD 

NPLOT =1 — NO PLOT 

=0 — WITH PLOT 

NORBIT — NO. OF TRANSIENT ORBIT STAGES DESIRED 

NTIME — NO. OF STAGES TO BE PLOTTED IN RESPONSE VS TIME CURVE 
NSPEED = 0 

NINC = 0 INPUT INITIAL CONDITION 

=1 — INITIAL CONDITION FROM STEADY STATE ORBIT 

( WITH SMALL PERTURBATION ) 

= 2 — INPUT MODAL INITIAL DATA 

NOPT = 0 

NT — NO. OF STAGES FOR TRANSIENT PRINTOUT 

COMMON /BLK3/ CRT ( 10) , LLBD ( 10) , LLNB(5) , LLNMB(9) , LLSK(IO) , LLNT ( 10) , 
1 LLUF(IO) , LLFF ( 10 ) ,LLUT(10) ,TCRT(10,5) 

CRT — ROTOR LATERAL NATURAL FREQUENCY 

LLBD -- NO. OF COUPLING BEARING STAGE OF ROTOR 

LLNB(J) — STAGE NO. OF JTH NONLINEAR BEARING 

LLNMB(J) — STAGE NO. OF THE JTH MOMENT RESISTING BEARING 

LLSK(J) — STAGE NO. OF JTH TOTOR SKEW DISK 

LLNT — PRINTOUT ROTOR STAGE NO. FOR TRANSIENT ANALYSIS 

LLUF(J) — STAGE NO. OF JTH ROTOR UNBALANCE 

LLFF ( J) — STAGE NO. OF JTH ROTOR EXTERNAL FORCE 

LLUT — PRINTOUT STAGE NO. FOR UNBALANCE RESPONSE 

TCRT — ROTOR CRETICAL SPEED 

COMMON /BLK4/SLNMB (9,4,4) , CLNMB (9,4,4) 

COMMON /BLK5/ UX ( 10) , UY ( 10) , FX ( 10) , FY (10) f FSK(IO) , PSK(IO) 

UX — X-DIR UNBALANCE ( OZ-IN ) 

UY — Y-DIR UNBALANCE ( OZ-IN ) 

FX — X-DIR EXTERNAL FORCE ( LB ) 

FY — Y-DIR EXTERNAL FORCE ( LB ) 

FSK — MAXIMUM STEW OF THE DISK 

PSK — ANGLE BETWEN MAXIMUM SKEW & X-AXIS 


COMMON /BLK6/ BOW(IOO) ,PBOW(100) ,XIDC(100) ,YIDC(100) ,VXIDC(100) ,VY 
II DC ( 100 ) , BXA ( 100 ) , BYA ( 100 ) 

C BOW — INITIAL BOW OF ROTORS 

C PBOW — ANGLE OF BOW 

C XIDC — X-DIR INITIAL DISPLACEMENT 

C YIDC — Y-DIR INITIAL DISPLACEMENT 

C VXIDC — X-DIR INITIAL VELOCITY 

C VYIDC — Y-DIR INITIAL VELOCITY 
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COMMON /BIjK7/ CMX ( 10 , 10) , KMX ( 10 , 10) , EMX ( 10 , 10) , CMY ( 10 , 10) , KMY ( 10 1 
10) ,EMY(10, 10) ' '' ' ' 

COMMON /BLK8/ MFX ( 10) , MFY ( 10) , MUX ( 10) ,MUY ( 10) , MBX ( 10) , MBY ( 10) 

COMMON /BLK9/ DDPC ( 10 , 100) , EEYTH ( 10 , 100) 

C DDPC — LATERAL MODAL SHAPE OF ROTOR 

C EEYTH — X-DIR TORTIONAL MODAL SHAPE OF ROTOR 

COMMON /BLK10/ SPS , SPF, SPN , SPEED1 
C SPS — INITIAL SPEED FOR UNBALANCE CALCULATION ( RPM ) 

C SPF — FINAL SPEED FOR UNBALANCE CALCULATION ( RPM ) 

C SPN — SPEED INCREME FOR UNBALANCE CALCULATION ( RPM ) 

C SPEED1 — ROTOR OPERATING SPEED ( RPM ) 

COMMON /BLK11/ DOX ( 10 , 10) , DOY ( 10 , 10) , EOX (10 , 10) , EOY ( 10 , 10) 

COMMON /BLK15/ RP(100) , RT(100) 

C RP — POLAR INERTIA MOMENT OF ROTOR 

C RT — TRANSVERSE INERTIA MOMENT OF ROTOR 

COMMON /BLK16/ SPEED2 , ANGSP, ANGACL, FSPEED 
C SPEED2 — INITIAL SPEED USED IN TRANSIENT ANALYSIS 

C ANGSP — ANGULAR VELOCITY OF ROTOR 

C ANGACL — ANGULAR ACCELERATION OF ROTOR 

COMMON /BLK18/ AKK ( 10 ) , TAKK ( 10 , 5 ) 

C AKK — AVERAGE BEARING STIFFNESS 

C TAKK — AVERAGE BEARING STIFFNESS 

COMMON /BLK19/ DX(100) 

C DX ( J) — LENGTH OF JTH ELEMENT OF ROTOR 

COMMON /BLK20/ Al(2,10) ,A2(2,10) , A3 (2 , 10) , B1 (2 , 10) , B2 (2 , 10) , B3 (2 , 1 
1 0 ) 

C A1 , A2 , A3 , B1 , B2 , B3 — USED FOR MATRICE CALCULATION 

COMMON /BLK22/ W(100) 

C W(J) — WEIGHT OF JTH ELEMENT OF ROTOR 

COMMON /BLK24/ BB (20 , 2 1) , CC ( 20) 

COMMON /BLK25/ BETA 

C BETA — NEWMARK BETA COEFFICIENT 

COMMON /BLK29/ PASP 

C PASP — TRANSIENT ANGLE OF CYCLE 

COMMON /BLK40/ BMMFX ( 10) , BMMFY ( 10) , TBMMFX( 10 , 5) , TBMMFY ( 10 , 5) 

COMMON /BLK41/ NBMOP, ACON1 (10) , ACON2 (10) ,A0MG1 (10) , AOMG2 (10) 

C NBMOP = 0 NO CALCULATION 

C =1 A(T)=(E**(A(T) *T) *COS (A(T) *T) ) 

C =2 A (T) =COS (A(T) *T) **2 

COMMON /BLK42/ CLEAR ( 100) , NRUB ( 100) , KR, IND, NSRUB,ABSO, NFACT 
C CLEAR — CLEARANCE IN RUB 

C NRUB — LOCATION NO. OF RUB STAGE 

C KR — DIRECT CASING STIFFNESS 

C IND = 0 FOR CASING STIFFNESS 

C =1 BLADE EQUATION 

C =2 LINEARIZED STIFFNESS 

C NSRUB — NO. OF RUB STAGES 
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C ABSO — FRICTION COEFFICIENT 

C NFACT — STEP FACTOR 

COMMON /BLK46/ NSEU, SUX ( 10 ) , SUY ( 10) 

C NSEU — NO. OF SUUDDEN INCREASE UNBALANCE 

C SUX — SUDDEN INCREASE UNBALANCE OF X-DIRECTION 

C SUY — SUDDEN INCREASE UNBALANCE OF Y-DIRECTION 

COMMON /BLK79/ CTIME 
C CTIME — FINAL TIME OF RUNNING 

COMMON /SPEED/ TSPEED(5) 

C TSPEED — ROTOR OPERATING SPEED 

COMMON /SHAPE/ NN ( 5 ) , NNNCT ( 5) , NNB ( 5) 

C NN — NO. OF ELEMENTS OF ROTORS 

C NNNCT — NO. OF MODES OF ROTOR 

C NNB — NO. OF BEARING OF ROTOR 

COMMON /OMG/ NNBMOP ( 5) , TACON1 (10,5) , TACON2 (10,5) , TAOMG1 (10,5) , 

1 TAOMG2 ( 10 , 5 ) 

COMMON /BLK14/ AAA ( 42 ) , UUU ( 42 ) , VW (42 ) , HHH (42 ) , BBB ( 42 ) , CCC ( 42 ) 
COMMON /BLK2 1/ DMX ( 10 , 10) , DMY ( 10 , 10) 

COMMON /BLK28/ ABL1 , ABL2 , ABL3 

COMMON /BLK35/ WHY ( 10 ) , VIS ( 5) , ANR (5) , ANL(5) , ANC ( 5) , NLB ( 5) 

COMMON /TOU/ TOUT ( 5) , FORCE Z (5) 

C TOUT — INPUT EXTERNAL TORTIONAL MOMENT ON ROTOR 

C FORCEZ — INPUT EXTERNAL AXIAL FORCE ON ROTOR 

COMMON /BLK52/ EXTW(IOO) ,DLX(100) ,DDXT(100) ,DDNT(100) ,RO(100) ,GGO( 
1 100) 

C EXTW(J) — EXTERNAL WEIGHT OF JTH ELEMENT OF ROTOR 

C DLX(J) — LENGTH OF ELEMENT OF ROTOR 

C DDXT(J) — EXTERNAL DIAMETER OF ROTOR 

C DDNT(J) — INTERNAL DIAMETER OF ROTOR 

C RO — DENSITY OF ROTOR 

C GGO — SHEAR MODULUS *1.0E-6 

COMMON /BLK54/ FR(10,5), FFV ( 10 , 100 , 5) 

C FR — TORTIONAL NATURAL FREQUENCIES OF ROTOR 

C FFV — TORTIONAL MODAL SHAPES OF ROTOR 

COMMON /BLK58/ ZF ( 10 , 5) , ZFV ( 10 , 100 , 5) 

C ZF — Z-DIR NATURAL FREQUENCIES OF ROTOR 

C ZFV — Z-DIR MODAL SHAPES OF ROTOR 

COMMON /BLK56/ SPE1 , SPE2 , SPE3 

C SPE1 — INITIAL SPEED FOR TORTIONAL CRITICAL SPEED ANALYSIS 

C SPE2 — FINAL SPEED FOR TORTIONAL CRITICAL SPEED ANALYSIS 

C SPE3 — SPEED INCREMENT FOR TORTIONAL CRITICAL SPEED ANALYSIS 

COMMON /BLK59/ TK ( 100 ) , EM6 ( 100 ) 

C TK — TORTIONAL CONSTRAINT MOMENT OF ROTOR 

C EM 6 — YOUNG'S MODULUS *1.0E-5 

COMMON /JS/ J ST ( 5 ) 

C JST(J) — THE LOCATION NO. OF GEAR OF JTH ROTOR 

COMMON /K12 3/ XK ( 4 , 100 ) , YK ( 4 , 100) 
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C XK ( K , I ) — ANGLE OF ITH POINT OF KTH GEAR 

C YK (K, I) — STIFFNESS OF ITH POINT OF KTH GEAR 

COMMON / KK13 / NP1 (4 ) , XG1 ( 4 ) , XMAX1 (4) , PS11 (4 ) 

C NP1 — NO. OF SPUR'S POINTS OF GEAR 

C XG1 — ANGLE BETWEEN SPURS OF A PAIR OF GEARS 

C XMAX1 — ANGLE DURING TOUCH PERIOD 

C PS11 — THE PHASE ANGLE OF A PAIR OF GEARS 

COMMON / RDDT / NTTD ( 5) , LLTD ( 10 , 5) , TTCC ( 10 , 5) 

C NTTD — NO. OF DAMPING STAGE OF ROTOR 

C LLTD — NO. OF DAMPING STAGE OF ROTOR 

C TTCC — DAMPING COEFFICIENT OF ROTOR 

COMMON /KTB13 / NKTB , NSK , INSK ( -5 ) , ANGL (5,3) , UANGL (5,9) 

C NKTB — NO. OF CONNECTING GEARS 

C NSK — NO. OF SLANTED ROTORS 

C INSK — THE LOCATION NO. OF SLANTED ROTOR 

C ANGL (I , 1) — ANGLE TO X-AXIS OF SLANTED ROTOR 

C ANGL (I, 2) — ANGLE TO Y-AXIS OF SLANTED ROTOR 

C ANGL (I, 3) — ANGLE TO Z-AXIS OF SLANTED ROTOR 

COMMON /TMU1/ TMUX ( 10 , 5) , TMUY ( 10 , 5) , TEXTW ( 100 , 5) , TDX ( 100 , 5) 

C TMUX — MODAL UNBALANCE FORCE OF X-DIRECTION 

C TMUY — MODAL UNBALANCE FORCE OF Y-DIRECTION 

C TEXTW — INPUT EXTERNAL WEIGHT PER ELEMENT OF ROTOR 

C TDX — ELEMENT LENGTH OF ROTOR 

COMMON /TD1/ TDDXT (100,5) , TDDNT (100,5) , TRP( 100 , 5) 

C TDDXT — EXTERNAL DIAMETER OF ROTOR 

C TDDNT — INTERNAL DIAMETER OF ROTOR 

C TRP — POLAR INERTIA MOMENT OF ROTOR 

COMMON /TR1/ TRT (100,5) , TEM6 (100,5) , TRO (100,5) , TGGO ( 100 , 5 ) 

C TRT — TRANSVERSE INERTIA MOMENT OF ROTOR 

C TEM6 — YOUNG'S MODULUS *1.0E-5 

C TRO — DENSITY OF ROTOR 

C TGGO — SHEAR MODULUS *1.0E-6 

COMMON /MF1/ LTLFF (10,5) , TSFX (10,5) , TSFY (10,5) , TMFX (10,5) 

C LTLFF — ROTOR STAGE NO. OF EXTERNAL FORCE 

C TSFX — EXTERNAL FORCE OF X-DIRECTION 

C TSFY — EXTERNAL FORCE OF Y-DIRECTION 

COMMON /TUI/ LTLUF ( 10 , 5) , TUX (10, 5) ,TUY(10,5) ,TSUX(10,5) ,TSUY(10,5) 

C LTLUF (J) — STAGE NO. OF JTH ROTOR UNBALANCE 

C TUX — X-DIR UNBALANCE ( OZ-IN ) 

C TUY — Y-DIR UNBALANCE ( OZ-IN ) 

C TSUX — SUDDEN INCREASE UNBALANCE OF X-DIRECTION 

C TSUY — SUDDEN INCREASE UNBALANCE OF Y-DIRECTION 

COMMON /SEU1/ LTLNT (10,5) , NTSRUB ( 5 ) , NTSEU ( 5 ) , NTFACT ( 5 ) , ITND ( 5 ) 

C LTLNT — STAGE NO. OF PRINTOUT ROTOR STAGE FOR TRANSIENT ANALYSIS 

C NTSRUB — NO. OF RUB STAGE 

C NTSEU — NO. OF SUDDEN INCREASE UNBALANCE STAGES 

C NTFACT — STEP FACTOR OF RUB 

C ITND = 0 FOR CASING STIFFNESS 

C =1 BLADE EQUATION 

C =2 LINEARIZED STIFFNESS 
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COMMON /AAB1/ KTR ( 5) , TABSO ( 5 ) , AA1 (2,10,5) , AA2 (2,10,5), AA3 (2,10,5) 
C KTR — DIRECT CASING STIFFNESS 

C TABSO — FRICTION COEFFICIENT 

C AA1 — MODAL ACCELERATION OF ROTOR AT X-DIRECTION 

C AA2 — MODAL VELOCITY OF ROTOR AT X-DIRECTION 

C AA3 — MODAL DISPLACEMENT OF ROTOR AT X-DIRECTION 

COMMON /BBA1/ BB1 ( 2 , 10 , 5 ) , BB2 ( 2 , 10 , 5) , BB3 (2 , 10 , 5) , TA1 (2 , 10 , 5) 

C BB1 — MODAL ACCELERATION OF ROTOR AT Y-DIRECTION 

C BB2 — MODAL VELOCITY OF ROTOR AT Y-DIRECTION 

C BB3 — MODAL DISPLACEMENT OF ROTOR AT Y-DIRECTION 

C TA1 — MODAL ACCELERATION OF ROTOR AT TORTIONAL-DIRECTION 

COMMON /TKB1/ TA2 (2,10,5) , TA3 (2,10,5), TKB (5,5) , ALPH (5,5) , RCC (5) 

C TA2 — MODAL VELOCITY OF ROTOR AT TORTIONAL-DIRECTION 

C TA3 — MODAL DISPLACEMENT OF ROTOR AT TORTIONAL-DIRECTION 

C TKB — STIFFNESS BETWEEN GEARS 

C ALPH — ANGLE BETWEEN GEARS 

C RCC — RADIUS OF GEAR 

COMMON /TMB1/ TMBX ( 10 , 5 ) , TMBY ( 10 , 5) , TWMY(10, 5) , LTLBD(10, 5) 

C LTLBD — LOCATION NO. OF BEARINGS 

COMMON /TCM1/ TCMX ( 10 , 10 , 5) , TCMY ( 10 , 10 , 5) , TKMX ( 10 , 10 , 5 ) 

COMMON /TDOl/ TDOX ( 10 , 10 , 5 ) , TDOY ( 10 , 10 , 5) , TEOX ( 10 , 10 , 5 ) 

COMMON /TD/ TDDPC(10, 100, 5) ,TEMX(10, 10,5) ,TEMY(10, 10,5) 

C T*MX — COEFFICIENT OF COMPENSATION TERM IN X-EQUATION 

C T*MY — COEFFICIENT OF COMPENSATION TERM IN Y-EQUATION 

C TEOX — COEFFICIENT OF COMPENSATION TERM IN TORTIONAL-EQU . 

C TEOY — COEFFICIENT OF COMPENSATION TERM IN TORTIONAL-EQU. 

C TDDPC — LATERAL MODAL SHAPE OF ROTOR 

COMMON /TW1/ TDMY (10,10,5) , TEEYTH (10,100,5) , TW (100,5) , TWMOD (50,5) 
C TEEYTH — X-DIR TORTIONAL MODAL SHAPE OF ROTOR 

COMMON /LAS/ TTK(100 , 5) , TMFY ( 10 , 5) , TKMY ( 10 , 10 , 5 ) , TEOY ( 10 , 10 , 5) , 

1 TDMX(10, 10, 5) 

COMMON /BAS El/ AB, OMEGA, FAB 
C AB — AMPLITUDE OF BASE MOTION 

C OMEGA — ROTATION SPEED OF BASE MOTION ( RAD/SEC ) 

C FAB — P1ASE ANGLE OF BASE MOTION 

COMMON /BOXO 1/ OMEGS ( 4 0 ) , BX1 ( 4 0 , 2 00 , 6) , LBLBT ( 10 , 5 ) , NMBB, NODEB 
C OMEGS — NATURAL FREQUENCY OF BOX 

C BX1 — MODAL SHAPES OF BOX 

C LBLBT — NO. OF BEARING LOCATION IN BOX 

C NMBB — NO. OF MODES OF BOX 

C NODEB — NO. OF EACH NODE'S DEGREE OF FREEDOM 

COMMON /BOX 03/ BKZZ(10,5) 

C BKZZ — Z- DIRECT ION STIFFNESS 

COMMON /BOX08/ NPT,NPTNO (16) 

C NPT — NO. OF BOX'S NODES FOR DEFORMATION PLOT 

C NPTNO — LOCATION NO. OF BOX FOR DEFORMATION PLOT 

C ************************ 

C * START TO INPUT DATA OF ROTOR-GEAR SYSTEM * 

C ************************ 
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NNPLT=0 

READ (5,690) COM1 
READ (5,690) COM2 
READ (5,690) COM3 

C COM1 , COM2 , COM3 — SPECIFICATION OF SAMPLING CASE 

WRITE (6, 700) COM 1 , COM2 , COM3 
WRITE (6,1080) 

WRITE (6,700) COM1, COM2, COM3 
WRITE (6,710) 

READ (5, *) NSTA , NKTB , NSK 
C NSTA — NO. OF TOTAL ROTORS 

C NKTB — NO. OF CONNECTING GEARS STIFFNESS 

C NSK — NO. OF SLANTED ROTORS 

WRITE (6, *) NSTA, NKTB, NSK 

IF (NSK. EQ. 0) GO TO 25 

READ (5,*) (INSK(I) ,1=1, NSK) 

C INSK — LOCATION NO. OF SLANTED ROTOR 

WRITE (6,*) (INSK(I) ,1=1, NSK) 

READ (5,*) ( (ANGL(INSK(I) , J) , J=l, 3) , 1=1, NSK) 

C ANGL — ANGLE OF SLANTED ROTOR 

WRITE (6,*) ( (ANGL(INSK(I) , J) , J=l, 3) , 1=1, NSK) 

DO 28 1=1, NSK 
DO 28 J=1 , 4 

28 ANGL(INSK(I) , J) =ANGL ( INSK ( I ) , J) *3 . 1415926/360 . 0 

25 READ (5,*) ( JST ( I) , 1=1 , NSTA) 

C JST ( J) — THE LOCATION NO. OF GEAR OF JTH ROTOR 

WRITE (6,*) (JST(I) ,1=1, NSTA) 

READ (5,*) ( (ALPH(I ,J) , 1=1, NSTA) ,J=1, NSTA) 

C ALPH — ANGLE BETWEEN GEARS 

WRITE (6,*) ( (ALPH (I, J) ,1=1, NSTA) ,J=1, NSTA) 

READ (5,*) (RCC(I) ,1=1, NSTA) 

C RCC — RADIUS OF GEARS 

WRITE (6,*) (RCC (I) , 1=1, NSTA) 

READ (5,*) (TOUT (I) ,1=1, NSTA) 

C TOUT — INPUT EXTERNAL TORT I ON AL TORQUE OF ROTORS 

WRITE (6,*) (TOUT(I) ,1=1, NSTA) 

READ (5,*) ( FORCEZ ( I ) ,1=1, NSTA) 

C FORCEZ — INPUT EXTERNAL AXIAL FORCE OF ROTORS 

WRITE (6,*) (FORCEZ (I) , 1=1, NSTA) 

READ (5,*) (NP1 ( I ) , XG1 ( I ) , XMAX1 (I) , PS 11(1) ,1=1, NKTB) 
NP1 — NO. OF SPUR'S POINTS OF GEAR 
XG1 — ANGLE BETWEEN THE SPURS OF A PAIR OF GEARS 
XMAX1 — ANGLE DURING TOUCH PERIOD 
PS 11 — PHASE ANGLE OF A PAIR OF GEARS 
WRITE (6,*) (NP1 (I) , XG1 ( I) , XMAX1 (I) , PS 11(1) ,1=1, NKTB) 

READ (5,*) ( (XK(K,I) ,YK(K,I) ,I=1,NP1(K) ) ,K=1,NKTB) 

XK ( K , I ) — ANGLE OF ITH POINT OF KTH GEAR 

YK(K, I) — STIFFNESS OF ITH POINT OF KTH GEAR 
WRITE (6,*) ( (XK (K, I ) , YK (K, I ) , 1=1 , NP1 (K) ) , K=1 , NKTB) 
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READ (5,*) (NTTD(I) ,1=1, NSTA) 

C NTTD — NO. OF GEARS FOR EACH ROTOR 

WRITE (6,*) (NTTD (I) ,1=1, NSTA) 

READ (5,*) ( (LLTD(I,J) ,I=1,NTTD(J) ) ,J=l f NSTA) 

C LLTD — LOCATION NO. OF GEARS 

WRITE (6,*) ( (LLTD ( I , J) , 1=1 , NTTD ( J) ) , J=1 , NSTA) 

READ (5,*) ( (TTCC ( I , J) , 1=1 , NTTD ( J) ) , J=1 , NSTA) 

C TTCC — GEAR DAMPING 

WRITE (6,*) ( (TTCC(I,J) ,1=1, NTTD(J) ) ,J=1, NSTA) 

READ (5,*) AB, OMEGA, FAB 

AB — AMPLITUDE OF BASE MOTION 

OMEGA — ROTATION SPEED OF BASE MOTION ( RAD/SEC ) 

FAB — PHASE ANGLE OF BASE MOTION 
WRITE (6,*) AB, OMEGA, FAB 

******************* 

— * INPUT DATA OF ROTOR PROPERTIES * 
******************* 

DO 123 Kl=l , NSTA 
K=5*Kl+55 
READ (5, 859) NMODE 
C NMODE — MODES NO. OF ROTORS 

WRITE (6, 859) NMODE 

READ (5,720) N , NB, NNLIN , NMB , NF , NU , NS , NBOW, ISTAB, IMODE , ISKU , NUFPT 
C N — NO. OF MASS STAGE OF ROTOR 

C NB — NO. OF REGULAR LINEAR BEARINGS OF ROTOR 

C NNLIN — NO. OF NONLINEAR BEARINGS OF ROTOR 

C NMB — NO. OF MOMENT RESISTING BEARINGS 

C NF — NO. OF EXTERNAL FORCE 

C NU — NO. OF UNBALANCE 

C NS — NO. OF SKEW DISK 

C NBOW =1 — WITH BOW SHAFT 

C =0 — NO SHAFT BOW 

C ISTAB = 1 — NO STABILITY CALCULATION 

C =0 — WITH STABILITY CALCULATION 

C IMODE — NO OF DAMPED MODAL SHAPES DESIRED 

C IF = 0, NO MODAL SHAPE CALCULATION 

C ISKU — NO. OF SKEW STAGES 

C NCT — NO. USED IN MODES CALCULATION 

C NUFPT — NO. OF STAGE NEEDED TO PRINTOUT FOR UNBALANCE 

WRITE (6,720) N , NB , NNLIN , NMB , NF , NU , NS , NBOW, ISTAB , IMODE , ISKU , NUFPT 

NN(K1)=N 

NNB (K1 ) =NB 

READ (5,730) ISKIP, NSTEP , NCYCLE , NITP, NINT , NPLOT , NORBIT , NTIME , NSPEE 
1D,NINC, NOPT, NT 

C ISKIP =1 — NO CALCULATION 

C =0 — CALCULATE TRANSIENT ORBIT 

C NSTEP — NO. OF STEPS OF INTEGRATION PER CYCLE 

C NCYCLE — NO. OF CYCLES 

C NITP — NO. OF STEPS PER PRINTOUT 

C NINT =1 — NEWWARK BETA METHOD 

C NPLOT =1 — NO PLOT 

C =0 — WITH ] ’LOT 

C NORBIT — NO. OF TRANSIENT ORBIT STAGES DESIRED 
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Uc£SL"~_ N0 * OF STAGES TO BE plotted in response vs time curve 

NSPEED — 0 

NINC = 0 INPUT INITIAL CONDITION 

= 1 — INITIAL CONDITION FROM STEADY STATE ORBIT 

( WITH SMALL PERTURBATION ) 

=2 — INPUT MODAL INITIAL DATA 

NOPT = 0 

NT — NO. OF STAGES FOR TRANSIENT PRINTOUT 
1D?NINC 6 N0PT ) NT SKIP ' NSTEP ' NCYCLE ' NITP ' NINT, NPLOT , NORBIT , NTIME , NSPEE 
IF (NB.EQ.O) GO TO 20 

READ (5,740) (LLBD(J) ,J=1,NB) 

LLBD — LOCATION NO. OF BEARINGS 
WRITE (6,740) (LLBD ( J) , J=1 , NB) 

DO 19 J=1 , NB 

KXX(J), KX A( J ) , KXY(J) ,KXB(J) ,KXZ(J) ,CXX(J) ,CXA(J) , CXY 
\ ) / vXd ( J ) , C XZ ( J ) 

WRITE (6, 750) KXX(J) ,KXA(J) ,KXY(J) ,KXB(J) ,KXZ(J) ,CXX(J) ,CXA(J) , CXY 
1(J) ,CXB(J) ,CXZ (J) 

P ? AD <;>,*) KAX(J) ,KAA(J) , KAY ( J) , KAB(J) ,KAZ(J) , CAX ( J) , CAA ( J) , CAY 
1(J) ,CAB(J) ,CAZ(J) 

WRITE (6,750) KAX ( J) ,KAA(J) ,KAY(J) ,KAB(J) ,KAZ(J) ,CAX(J) ,CAA(J) , CAY 
1(J) , CAB ( J) ,CAZ(J) 

PEAD (5,*) KYX(J) , KYA(J) ,KYY(J) ,KYB(J) , KYZ ( J) , CYX ( J) ,CYA(J) , CYY 
1(J) , CYB ( J) , CYZ ( J) 

WRITE ( 6 , 750) KYX ( J) ,KYA(J) , KYY (J) , KYB(J) ,KYZ(J) ,CYX(J) ,CYA(J) , CYY 
1(J) , CYB ( J) ,CYZ(J) 

READ (5,*) KBX(J) ,KBA(J) ,KBY(J) ,KBB(J) ,KBZ(J) ,CBX(J) ,CBA(J) , CBY 
1(J) ,CBB(J) ,CBZ(J) 

WRITE (6 , 750) KBX (J) ,KBA(J) ,KBY(J) ,KBB(J) ,KBZ(J) ,CBX(J) ,CBA(J) , CBY 
1(J) ,CBB(J) ,CBZ(J) " 

READ (5,*) KZX(J) , KZA ( J) , KZY ( J) ,KZB(J) ,KZZ(J) ,CZX(J) ,CZA(J) , CZY 

1(J) ,CZB(J) , CZZ (J) 

WRITE (6 , 750) KZX (J) ,KZA(J) , KZY ( J) , KZB( J) , KZZ ( J) , CZX ( J) ,CZA(J) ,CZY 
1(J) ,CZB(J) ,CZZ(J) ' " 

CONTINUE 

BEARING STIFFNESS TK** 

BEARING DAMPING TC** 

X — DIRECTION OF X 

A — DIRECTION OF X ROTATION 

Y — DIRECTION OF Y 

B — DIRECTION OF Y ROTATION 

Z — DIRECTION OF Z 

DO 20 J=1 , NB 
LTLBD ( J , K1 ) =LLBD ( J) 

TKXX ( J , K1 ) =KXX ( J ) 

TKXY ( J , Kl) =KXY ( J) 

TKXA ( J , Kl ) =KXA ( J ) 

TKXB ( J , Kl ) =KXB ( J ) 

TKXZ ( J , Kl) =KXZ (J) 

TCXX ( J , Kl) =CXX ( J) 

TCXY ( J , Kl) =CXY ( J) 

TCXA ( J , Kl ) =CXA ( J ) 

TCXB ( J , Kl ) =CXB ( J ) 

TCXZ ( J , Kl) =CXZ ( J) 

TKYX ( J , Kl) =KYX ( J) 

TKYY ( J , Kl) =KYY ( J) 

TKYA(J,K1) =KYA(J) 


108 


TKYB(J,K1)=KYB(J) 
TKYZ (J, Kl) =KYZ (J) 
TCYX ( J , Kl) =CYX ( J) 
TCYY (J,K1) =CYY (J) 
TCYA (J, Kl ) =CYA ( J) 
TCYB(J, Kl) =CYB(J) 
TCYZ (J, Kl) =CYZ (J) 
TKAX ( J , Kl) =KAX ( J) 
TKAY (J, Kl) =KAY (J) 
TKAA(J, Kl) =KAA(J) 
TKAB(J,K1)=KAB(J) 
TKAZ (J, Kl) =KAZ (J) 
TCAX ( J , Kl) =CAX ( J) 
TCAY (J, Kl) =CAY (J) 
TCAA(J, Kl) =CAA(J) 
TCAB ( J , Kl ) =CAB ( J ) 
TCAZ (J,K1) =CAZ (J) 
TKBX ( J , Kl ) =KBX ( J) 
TKBY ( J , Kl ) =KBY ( J ) 
TKBA ( J , Kl) =KBA ( J) 
TKBB ( J , Kl) =KBB ( J) 
TKBZ (J, Kl) =KBZ (J) 
TCBX (J, Kl) =CBX (J) 
TCBY ( J, Kl) =CBY ( J) 
TCBA ( J , Kl ) =CBA ( J ) 
TCBB ( J , Kl) =CBB ( J) 
TCBZ ( J , Kl) =CBZ (J) 
TKZX ( J , Kl ) =KZX ( J) 
TKZY ( J, Kl) =KZY ( J) 
TKZA ( J , Kl ) =KZA ( J) 
TKZB ( J , Kl ) =KZB ( J ) 
TKZZ (J,K1)=KZZ(J) 
TCZX (J, Kl) =CZX (J) 
TCZY (J, Kl) =CZY (J) 
TCZA ( J , Kl) =CZA ( J) 
TCZB ( J , Kl) =CZB ( J) 
TCZZ (J, Kl) =CZZ (J) 
20 CONTINUE 


C 

C 

C 

C 

C 

C 


30 


IF (NNLIN.EQ.O) GO TO 30 

^READ (5,760) (LLNB(J) ,NLB(J) , VIS (J) ,ANR(J) ,ANL(J) , ANC(J) , J=1,NNLIN 

LLNB — LOCATION NO. OF NONLINEAR BEARING 
NLB — BEARING NO. OF NONLINEAR BEARINGS 
VIS — VISCOUSITY OF LUBRICATE ( LB/IN**2 ) 

ANR — RADIUS OF BEARING ( IN ) 

ANL — LENGTH OF BEARING ( IN ) 

ANC — CLEARANCE OF BEARING ( IN ) 

^ WRITE ( 6 , 760 ) ( LLNB ( J ) ,NLB(J) ,VIS(J) ,ANR(J) ,ANL(J) ,ANC(J) ,J=1,NNLIN 

CONTINUE 

IF (NMB.EQ.O) GO TO 40 


READ (5,770) (LLNMB(J) ,J=1,NMB) 

LLNMB — LOCATION NO. OF MOMENT RESISTING BEARING 
WRITE ( 6 , 77 0) (LLNMB (J) , J=1 , NMB) 

DO 35 1=1, NMB 
DO 35 J=l, 4 

READ (5,780) (SLNMB ( I , J , K) , K=1 , 4 ) , (CLNMB (I , J , K) , K=1 , 4 ) 
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WRITE (6, 780) (SLNMB ( I , J , K) ,K=1,4) , (CLNMB(I , J, K) ,K=1,4) 

35 CONTINUE 

40 CONTINUE 

READ (5,*) NGYR , E , SPEED1 , SPEED2 , ANGACL, BETA 
C NGYR — NO. OF GYROSCOPIC ROTOR 

C E — SECTION YOUNG'S MODULUS *1.0E-5 

C SPEED1 — ROTOR'S OPERATING SPEED ( RPM ) 

C SPEED2 — ROTOR'S INITIAL OPERATING SPEED ( RPM ) 

C ANGACL — ANGULAR ACCELERATION OF ROTOR 

C BETA — BETA PARAMETER USED FOR NEWMARK BETA METHOD 

WRITE (6,790) NGYR, E , SPEED1 , SPEED2 , ANGACL, BETA 
TSPEED (Kl) =SPEED1 

READ (5,*) (EXTW(J) ,DX(J) ,DDXT(J) , DDNT ( J ) ,RP(J) ,RT(J) ,EM6(J) , 

1 RO(J) ,GGO(J) ,TK(J) , J=1,N) 

C EXTW — INPUT EXTERNAL WEIGHT PER ELEMENT OF ROTOR 

C DX — ELEMENT LENGTH OF ROTOI 

C DDXT — EXTERNAL DIAMETER PER ELEMENT OF ROTOR 

C DDNT — INTERNAL DIAMETER PER ELEMENT OF ROTOR 

C RP — POLAR ENERTIA MOMENT PER ELEMENT OF ROTOR ( LB*IN**2 ) 

C RT — TRANSVERS ENERTIA MOMENT PER ELEMENT OF ROTOR ( LB*IN**2 ) 

C EM 6 — YOUNG'S MODULUS PER ELEMENT OF ROTOR *l.E-5 

C RO — DENSITY PER ELEMENT OF ROTOR 

C GGO — SHEAR'S MODULUS PER ELEMENT *1.0E-5 

C TK — TORTIONAL CONSTRAINT MOMENT PER ELEMENT *1.0E-15 

WRITE (6, 800) (EXTW ( J) ,DX(J) ,DDXT(J) , DDNT ( J ) ,RP(J) ,RT(J) ,EM6(J) , 

1 RO(J) ,GGO(J) ,TK(J) , J=1 , N) 

DO 33 J=1,N 

TK( J) =1. 0D15*TK(J) 

TEXTW ( J , Kl ) =EXTW ( J) 

TDX ( J, Kl) =DX ( J) 

TDDXT ( J , Kl ) =DDXT ( J) 

TDDNT ( J , Kl ) =DDNT ( J) 

TRP ( J , Kl ) =RP ( J) 

TRT ( J , Kl ) =RT ( J ) 

TEM6 (J, Kl) =EM6 (J) 

TRO ( J , Kl ) =RO ( J) 

TGGO ( J , Kl ) =GGO ( J ) 

TTK(J, Kl) =TK(J) 

33 CONTINUE 

IF (NF.EQ.O) GO TO 50 

READ (5,810) (LLFF(J) ,FX(J) , FY ( J ) ,J=1,NF) 

LLFF — LOCATION NO. OF EXTER1AL FORCE OF ROTOR 
FX — EXTERNAL FORCE ON X-DIRECTION 
FY — EXTERNAL FORCE ON Y-DIRECTION 
WRITE (6, 810) (LLFF ( J) ,FX(J) ,FY(J) ,J=1,NF) 

DO 55 1=1, NF 
LTLFF ( I , Kl ) =LLFF ( I ) 

TSFX ( I , Kl ) =FX ( I ) 

TSFY ( I , Kl ) =FY ( I ) 

CONTINUE 

IF (NU.EQ.O) GO TO 60 

READ (5,*) (LLUF ( J) , UX ( J) , UY ( J) , SUX ( J) , SUY ( J) , J=1 , NU) 

LLUF — LOCATION NO. OF UNBALANCE OF ROTOR 
UX — X-DIR UNBALANCE ( OZ-IN ) 

UY — Y-DIR UNBALANCE ( OZ-IN ) 

SUX — SUDDEN INCREASE UNBALANCE OF X-DIRECTION ( OZ-IN ) 
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C SUY — SUDDEN INCREASE UNBALANCE OF Y-DIRECTION ( OZ-IN ) 

WRITE (6,810) (LLUF(J) ,UX(J) ,UY(J) ,SUX(J) ,SUY(J) ,J=1,NU) 

DO 60 J=1 , NU 
LTLUF ( J , K1 ) =LLUF ( J ) 

TUX ( J , Kl) =UX ( J) 

TUY (J, Kl) =UY (J) 

TSUX ( J , Kl) =SUX ( J) 

TSUY ( J , Kl ) =SUY ( J ) 


60 CONTINUE 

IF (NS.EQ.O) GO TO 70 

C SKEW DISK IS NEGLECTED IN THIS PROGRAM 

READ (5,810) (LLSK(J) ,FSK(J) ,PSK(J) ,J=1,NS) 

WRITE (6,810) (LLSK(J) ,FSK(J) ,PSK(J) ,J=1,NS) 

70 CONTINUE 

IF (NUFPT.EQ.O) GO TO 80 

READ (5,820) (LLUT(J) , J=1,NUFPT) 

WRITE (6,820) (LLUT ( J) , J=1 , NUFPT) 

80 CONTINUE 

IF (NT. EQ. 0) GO TO 90 

READ (5,820) (LLNT(J) ,J=1,NT) 

C LLNT — LOCATION NO. FOR PRINTOUT OF ROTOR IN TRANSIENT ANALYSIS 

WRITE (6,820) ( LLNT ( J) , J=1 , NT) 

DO 90 J=1 , NT 

LTLNT ( J , Kl ) =LLNT ( NT ) 

90 CONTINUE 


IF(NINC. NE . 2 ) GO TO 94 
READ (5,821) NAB , CTIME 
WRITE (6,821) NAB , CTIME 
DO 92 J=1 , NAB 

READ (5,822) A3 ( 1 , J ) , B3 ( 1 , J) , A2 ( 1 , J) , B2 ( 1 , J) 

WRITE (6, 82 2) A3 (1, J) , B3 ( 1 , J) , A2 ( 1 , J) , B2 ( 1 , J) 

AA3 (1, J,K)=A3 (1, J) 

AA2 ( 1 , J , K) =A2 ( 1 , J ) 

BB3 (1, J,K)=B3 (1, J) 

BB2 (1, J,K)=B2 (1, J) 

92 CONTINUE 

94 CONTINUE 

IF (NBOW. EQ. 0) GO TO 95 

READ (5,830) (BOW(J) ,PBOW(J) ,XIDC(J) ,YIDC(J) ,VXIDC(J) ,VYIDC(J) ,J=1 
1 , N) 

WRITE (6,830) (BOW(J) ,PBOW(J) ,XIDC(J) ,YIDC(J) ,VXIDC(J) ,VYIDC(J) ,J=1 
1 , N) 

95 CONTINUE 

READ (5,*) SPI , SPL, DSP 
C SPI — 

WRITE (6,840) SPI, SPL, DSP 

READ (5,*) SPE1 , SPE2 , SPE3 

SPE1 — INITIAL SPEED FOR TORTIONAL CRITICAL SPEED ANALYSIS 
SPE2 — FINAL SPEED FOR TORTIONAL CRITICAL SPEED ANALYSIS 
SPE3 — SPEED INCREMENT FOR TORTIONAL CRITICAL SPEED ANALYSIS 
( RPM ) 

WRITE (6,840) SPE1 , SPE2 , SPE3 
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IF (ISKU.EQ.l) GO TO 100 
READ (5,*) SPS , SPF, SPN 

C SPS — INITIAL SPEED FOR UNBALANCE RESPONSE CALCULATION 

C SPF — FINAL SPEED FOR UNBALANCE RESPONSE CALCULATION 

C SPN — SPEED INCREMENT FOR UNBALANCE RESPONSE CALCULATION 

WRITE ( 6 , 850) SPS, SPF, SPN 
100 CONTINUE 

READ (5,851) NBMOP 

C NBMOP = 0 NO CALCULATION 

C =1 A(T)=(E**(A(T) *T) *COS (A (T) *T) ) 

C =2 A (T) =COS (A(T)*T)**2 

WRITE (6,851) NBMOP 
IF (NBMOP. EQ.O) GO TO 103 
READ (5, 852) ( ACON1 ( I ) , 1=1 , NB) 

WRITE (6,852) ( ACON1 ( I ) , 1=1 , NB) 

READ (5,852) (ACON2 ( I ) , 1=1 , NB) 

WRITE (6,852) (ACON2 ( I) , 1=1 , NB) 

READ (5,853) ( APH1 (I ) , 1=1 , NB) 

WRITE (6,853) ( APH1 ( I ) , 1=1 , NB) 

READ (5,853) ( APH2 ( I ) , 1=1 , NB) 

WRITE (6,853) (APH2 ( I ) , 1=1 , NB) 

DO 102 J=1 , NNB (K1 ) 

TAOMG1 ( J, Kl) =APH1 ( J) *3.14159/30.0 
TAOMG2 ( J, Kl) =APH2 (J) *3 . 14159/30.0 
NNBMOP(J) =NBMOP 
TACON1 ( J , Kl ) =AC0N1 ( J ) 

102 TACON2 (J, Kl) =ACON2 (J) 

103 CONTINUE 

READ (5,*) NSRUB, NSEU 
C NSRUB — NO. OF RUB STAGES 

C NSEU — NO. OF SUDDEN INCREASE UNBALANCE STAGES 

WRITE (6,854) NSRUB, NSEU 

IF (NSRUB. EQ. 0) GO TO 106 
READ (5,*) NFACT , IND , KR , ABSO 
C NFACT — STEP FACTOR OF RUB 

C IND = 0 FOR CASING STIFFNESS 

C =1 BLADE EQUATION 

C =2 LINEARIZED STIFFNESS 

C KR — DIRECT CASING STIFFNESS 

C ABSO — FRICTION COEFFICIENT 

WRITE (6,855) NFACT, IND, KR, ABSO 

READ (5,*) (NRUB(J) , CLEAR (J) ,J=1, NSRUB) 

C NRUB — LOCATION NO. OF RUB STAGE 

C CLEAR — CLEARANCE OF RUB 

WRITE (6, 856) (NRUB(J) , CLEAR (J) ,J=1, NSRUB) 

NTSRUB(Kl) =NSRUB 
NTSEU (Kl) =NSEU 
NTFACT ( Kl ) =NFACT 
ITND (Kl ) =IND 
KTR(Kl) =KR 
TABSO ( Kl ) =ABSO 
106 CONTINUE 

READ (5, 690) ABL1 
WRITE (6, 690) ABL1 
READ (5,690) ABL2 
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WRITE (6 ,690) ABL2 
READ (5,690) ABL3 
WRITE (6, 690) ABL3 

C THREE TITLE CARDS FOR LABEL IN PLOTS 

WRITE (6,860) NCYCLE , NSTEP, NINT, NINC, NOPT, SPEED2 , ANGACL, BETA 
WRITE (6,870) 

C ************************** 

C * CALCULATE EFFECTIVE ENERTIA MOMENT OF ROTORS * 

C ************************** 


DO 110 1=1, N 
DLX (I) =DX ( I ) 

CCRI=RO (I) 

CCEI=EM6 ( I ) 

IF (CCRI.GT. 0.001) GOTO 105 
RO ( I ) =0 .283 
105 CONTINUE 

ENER(I)=3. 14159* (DDXT(I) **4.-DDNT(I) **4. )/64. 

IF (CCEI.GT. 0. 001) GOTO 107 
EM6 ( I ) =E 
107 CONTINUE 

El ( I ) =EM6 ( I ) *ENER ( I ) 

DL=ABS ( DX ( I ) ) 

110 SW1 ( I ) =3 . 14 159* (DDXT (I) **2 . -DDNT (I) **2 . ) *DL*RO ( I ) /4 . 0 

W ( 1 ) =SW1 ( 1) /2 . +EXTW (1) 

WT=W ( 1 ) 

ZLT=DX (1) 

DO 120 1=2, N 

W(I) =SW1 (1-1) /2 . 0+SW1 (I ) /2 . 0+EXTW (I) 

C W(I) — TOTAL EFFECTIVE SHAFT WEIGHT 

TW ( I , Kl) = W(I) 

WT=WT+W ( I ) 

120 ZLT=ZLT+DX ( I ) 

IF (NGYR) 130,150,130 
130 RP ( 1 ) =RP ( 1 ) +ENER ( 1 ) *RO(l) *DX(1) 

RT(1)=RT(1)+SW1 (1) * ( (DDXT ( 1) **2 . 0+DDNT(l) **2 . 0) /16 . 0+ ( (DX(l)/2 . 0) * 
l*2.0)/3.0)/2.0 
DO 140 1=2, N 

RP ( I ) =RP ( I ) +RO ( I ) *ENER(I) *DX(I) +ENER(I-1) *DX(I-1) *RO(I-l) 

RT ( I ) =RT ( I ) +SW1 ( I ) * ( (DDXT (I) **2 . 0+DDNT(I) **2 . 0) /16 . 0+ ( (DX(I)/2.0) * 
l*2.0)/3.0)/2. 0+SW1 (1-1) *( ( DDXT (1-1) **2 . 0+DDNT(I-l) **2.0) /16.0+( (DX 
2(I-l)/2.0)**2.0)/3.0)/2.0 
140 CONTINUE 
150 SRP=0 . 0 

DO 160 1=1, N 
160 SRP=SRP+RP ( I ) 

DO 180 1=1, N 

WRITE (6,880) I , W ( I ) , DX ( I ) , DDXT ( I ) , DDNT ( I ) , ENER ( I ) , RP ( I ) , RT ( I ) , 
1EM6 ( I ) , El ( I ) 

IF (1-50) 180,170,180 

170 WRITE (6,1080) 

180 CONTINUE 

WRITE (6,890) WT,ZLT 
WRITE (6,900) 

WRITE (6,910) 

WRITE (6,920) ( J , LLBD ( J) , KXX ( J ) , KXY ( J) , KYX ( J) , KYY J) , J=1 , NB) 

WRITE (6,930) 

WRITE (6,940) 

WRITE (6,920) ( J , LLBD ( J) , CXX ( J) , CXY ( J) , CYX ( J) , CYY J) , J=1 , NB) 

IF (NMB.EQ.O) GO TO 200 


113 



190 

200 


210 

220 


230 


240 


250 

260 


270 

275 


C 

C 

C 


280 


282 

283 

C 


C 


DO 190 1=1, NMB 

WRITE (6,950) I , LLNMB ( I ) 

DO 190 J=1 , 4 

WRITE (6,960) (SLNMB ( I , J , K) , K=1 , 4 ) , (CLNMB(I , J , K) K=1 4 ) 

CONTINUE ' ' ' ' ' 

IF (NNLIN.EQ. 0) GO TO 220 
WRITE (6,1170) 

DO 210 J=1 , NNLIN 

WRITE (6,1180) J,LLNB(J) ,NLB(J) ,VIS(J) ,ANR(J) ,ANL(J) ,ANC(J) 
CONTINUE >f y ’ 

IF (NF.EQ.O) GO TO 230 
WRITE (6,970) 

WRITE (6,980) ( LLFF ( J) , FX ( J) , FY ( J) , J=1 , NF) 

IF (NS.EQ.O) GO TO 240 
WRITE (6,990) 

WRITE (6,1000) (LLSK(J) , FSK(J) , PSK(J) , J=1,NS) 

IF (NU.EQ.O) GO TO 260 
WRITE (6,1010) 

WRITE (6,1020) 

WRITE (6,1030) (LLUF(J) ,UX(J) ,UY(J) ,J=1,NU) 

DO 250 J=1 , NU 

UX ( J ) =UX (J)/(16.*386.4) 

UY (J) =UY (J)/ (16. *386. 4) 

CONTINUE 

IF (NBOW.EQ.O) GO TO 275 
WRITE (6,1040) 

DO 270 J=1,N 

WRITE (6,1050) J, BOW( J) , PBOW( J) , XIDC(J) , YIDC(J) , VXIDC(J) VYIDC ( J) 
CONTINUE K 1 

CONTINUE 
WRITE (6,1060) 


******************£££££ 

— * CALCULATE ROTOR'S LATERAL MODAL SHAPE * 
*********************** 

DO 280 1=1, NB 

AVK= ( KXX ( I ) +KY Y ( I ) )/2. 

WRITE (6,1070) I , AVK 
CONTINUE 

WRITE (6,1071) NBMOP 
IF (NBMOP. EQ. 0) GO TO 283 
DO 282 1=1, NB 

WRITE (6,1072) I , ACON1 ( I ) , ACON2 ( I ) , APH1 (I) , APH2 ( I ) 

CONTINUE 

CONTINUE 

NC=1 

NC= LOCAL CRITICAL SPEED NO. 

WRITE (6,1080) 

LN=3 

SPI=INITIAL SPEED, SPL=FINAL SPEED, DSP=SPEED INCREMENT-RPM 

SPD=SPI 

DETP=0 . 

MA=0 

MB=0 

WRITE (6,1080) 

WRITE (6,1090) SPI , SPL, DSP 
LN=1 

WRITE (6,1100) 

LN=LN43 

DIN=DSP 
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290 


1=1 
J=1 

SPSQ=SPD*SPD 
C COMPUTE ANG. VELOCITY 

ANSP=SPD*0. 10471976 
ANSP2=ANSP*ANSP 
VP=0. 

ZMP=0 . 

EYP=0. 

ETHP=1. 0 
M=1 

300 1=1+1 
11=1-1 

IF (II-LLBD(J) ) 330,310,330 

310 AK= (KXX ( J) +KYY ( J) ) / 2 . 

AKK ( J ) = AK 

TAKK ( J , K1 ) =AKK ( J ) 

IF (J-NB) 320,340,340 
320 J=J+1 

GO TO 340 
330 AK=0 . 

340 VP=VP+ (W(I-l) *ANSP2/386 . 4-AK) *EYP 
ZMP=ZMP— ANSP2 * (RT(I-l) ) *ETHP/386. 4 

EY=EYP+DX ( 1-1) *ETHP+DX ( 1-1 ) **2*ZMP/ (2 . E6*EI ( 1-1 ) ) +DX(I-1) **3*VP/ (6 
l.E6*EI (1-1) ) 

ETH=ETHP+DX ( I - 1 ) *ZMP/ ( 1 . E6*EI (1-1) ) +DX(I-1) **2*VP/ (2 . E6*EI (1-1) ) 

ZM=ZMP+DX(I-1) *VP 

V=VP 

IF (M.EQ.2) GO TO 350 
EY1 (I ) =EY 
EAN1 ( I ) =ETH 
IF (I.GT.N) GO TO 360 
ZMP=ZM 
VP=V 
EYP=EY 
ETHP=ETH 
GO TO 300 
350 EY2 ( I ) =EY 

EAN2 ( I ) =ETH 

ZMP=ZM 

VP=V 

EYP=EY 

ETHP=ETH 

IF (I.GT.N) GO TO 370 
GO TO 300 
360 M=2 

ZM1=ZM 

VR1=V 

J=1 

1=1 

EYP=1 . 

ZMP=0 . 

ETHP=0 . 

VP=0. 

GO TO 300 

370 DET=VR1*ZM-V*ZM1 

IF (ABS(DETP) .LT. 0.0001) GO TO 420 
IF (MA.EQ.l) GO TO 400 
IF (ABS(DET) .LT. 1. ) GO TO 450 
IF ( DETP*DET) 380,420,420 
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380 DOLD=DETP 
390 MA=1 

IF (ABS(DET) .LT.l. ) GO TO 450 
IF (DIN.LT. l.E-6) GO TO 450 
DIN=DIN/2 . 

DETPP=DETP 
DETP=DET 
SPD=SPD-DIN 
GO TO 290 

400 IF (ABS(DET) .LT.l. ) GO TO 450 
IF (DOLD*DET) 390,420,410 
410 CONTINUE 

IF (ABS(DET) .LT. 1. ) GO TO 450 
IF (DIN.LT. l.E-6) GO TO 450 
DIN=DIN/2 . 

SPD=SPD+DIN 
DETPP=DETP 
DETP=DET 
GO TO 290 

420 IF (LN-54) 440,440,430 
430 WRITE (6,1080) 

LN=1 

440 WRITE (6,1110) SPD, DET 
LN=LN+1 
SPD=SPD+DSP 
DIN=DSP 

IF(NC.GT.NMODE) GO TO 610 
IF (SPD. GT . SPL) GO TO 610 
DETPP=DETP 
DETP=DET 
SSPD=SPD 
GO TO 290 
450 MA=0 

WRITE (6,1110) SPD, DET 
LN=LN+1 

IF (LN-50) 470,470,460 
460 WRITE (6,1080) 

LN=1 

470 WRITE (6,1120) NC 
WRITE (6,1130) 

WRITE (6,1110) SPD, DET 

CRT (NC) =SPD 

TCRT ( NC , K 1 ) =CRT ( NC ) 

NC=NC+1 
LN=LN+3 
EY1 (1) =0 . 

EY2 ( 1) =1 . 

DTX=0. 

1=1 

IF (LN-50) 490,490,480 
480 WRITE (6,1080) 

LN=1 

490 WRITE (6,1140) 

LN=LN+2 

500 DEFL ( I ) =V*EY1 ( I ) -VR1*EY2 ( I ) 

IF (I.NE.l) GO TO 510 
EYTH (I) =V 
GO TO 520 

510 EYTH ( I ) =EAN1 ( I ) *V-EAN2 ( I ) *VR1 

520 DEFA=ABS ( DEFL ( I ) ) 
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DMXA=ABS (DTX) 

1=1+1 

IF (DEFA-DMXA) 540,540,530 
530 DTX=DEFL( T-l ) 

540 IF ( I— N) 550,550,560 

550 GO TO 500 

560 DO 570 1=1, N 

DPC ( I ) =DEFL ( I ) /DTX 
EYTH ( I ) =E YTH (I) / DTX 
EEYTH (NC-1 , I ) =EYTH ( I ) 

570 DDPC (NC-1 , 1 ) =DPC ( I ) 

DO 600 1=1, N 
LN=LN+1 

IF (LN-54) 590,590,580 
580 WRITE (6,1080) 

LN=1 

590 WRITE (6,1150) I , DPC ( I) , EYTH ( I ) 

LN=LN+1 

600 CONTINUE 

SPD=SSPD+ DSP 
DETP=0 . 

GO TO 290 
610 CONTINUE 

DO 620 IK=1,NB 

KXX ( IK) =KXX ( IK) -AKK ( IK) 

620 KYY ( IK) =KYY (IK) -AKK ( IK) 

NCS=NC-1 
DO 650 11=1, NCS 
WMOD ( II ) =0 . 

DO 630 JJ=1 , N 

630 WMOD ( II ) =WMOD (II) +RT ( JJ ) *EEYTH ( II , JJ) **2+W(JJ) *DDPC(II, JJ) **2 

WMOD (II) =WMOD (II)/386.4 
TWMOD ( I I , K1 ) =WMOD (II) 

DO 640 KI=1 , N 

EEYTH ( II , KI ) =EEYTH ( II , KI ) / (WMOD ( II ) **0.5) 

DDPC ( II , KI ) =DDPC ( II , KI ) / (WMOD (II) **0.5) 

TEEYTH ( I I , KI , KI ) =EEYTH ( I I , KI ) 

640 TDDPC (II, KI , KI ) =DDPC (II, KI ) 

650 CONTINUE 

DO 660 11=1, NCS 

WRITE (6,1190) I I , CRT (II), WMOD (II) 

DO 660 JJ=1,N 

WRITE (6,1200) JJ , DDPC ( I I , JJ ) , EEYTH ( II ,JJ) 

660 CONTINUE 

WRITE (6,1210) 

DO 680 11=1, NCS 
DO 670 JJ=1 , NCS 
TMX ( I I , J J ) =0 . 

DO 670 KI=1 , N 

TMX ( I I , J J ) =TMX ( I I , J J ) +W ( KI ) *DDPC ( JJ , KI ) *DDPC (II , KI ) /386 . 4+RT (KI) *E 
1EYTH ( II , KI ) * EEYTH ( JJ , KI ) /386 . 4 
670 CONTINUE 

WRITE (6,1160) (TMX(II,JJ) ,JJ=1,NCS) 

680 CONTINUE 
NCT=NCS 
NNNCT ( KI ) =NCT 

************************ 

* CALCULATE ROTOR'S TORTIONAL MODAL SHAPE * 
************************ 
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DO 1234 1 = 1,2 
1234 CALL T0R(N,NCS,K1, I) 
123 CONTINUE 


************ 

■- * INPUT BOX'S DATA * 

************ 

READ (5,*) NMBB , NDB , NODEB 
NMBB — MODES NO. OF BOX 
NDB — NO. OF NODES OF BOX 
NODEB — DEGREE OF FREEDOM FOR EACH NODE 
WRITE ( 6 , * ) NMBB , NDB , NODEB 
C WRITE ( 10 , * ) NMBB 

DO 195 K=1 , NSTA 

READ (5,*) (LBLBT ( I , K) , 1=1 , NNB (K) ) 

C LBLBT — LOCATION NO. OF BEARINGS ON BOX 

WRITE (6,*) ( LBLBT ( I , K) , 1=1 , NNB (K) ) 

195 CONTINUE 

DO 199 K=1 , NSTA 

READ (5,*) ( BKZZ ( I , K) , 1=1 , NNB (K) ) 

C BKZZ — Z— DIRECTION CASING STIFFNESS 

WRITE (6,*) ( BKZZ ( I , K) , 1=1 , NNB (K) ) 

199 CONTINUE 

READ (5,*) NPT 

C NPT — NO. OF BOX 'NODES FOR DEFORMATION ANALYSIS 

READ (5,*) (NPTNO(I) , 1=1, NPT) 

C NPTNO — LOCATION NO. OF NODES FOR DEFORMATION ANALYSIS ON BOX 

DO 64 IN=1 , NMBB 

READ (5,1260) OMEGS(IN) 

C OMEGS — NATURAL FREQUENCIES OF BOX 

WRITE (6, 1262) OMEGS (IN) 

DO 64 ID=1 , NDB 

C READ(5, 1265) IA, (BX1 (IN, ID, IX) , IX=1, 5) 

READ (5, *) IA, (BX1 (IN, ID, IX) , IX=1, 5) 

C BX1 — MODAL SHAPES OF BOX 

WRITE (6, 1265) IA, (BX1 (IN, ID, IX) ,IX=1,5) 

64 CONTINUE 

N9=NSTEP*NCYCLE 

FCYCLE=NCYCLE 

C TTIME1=60 . 0*FCYCLE/SPEED1 

TTIME1=60 . 0/ (SPEED1*NSTEP) 

FSAMPLE=1 . 0/TTIME1 

WRITE (7, *) NSTA, N9 , NNNCT ( 1) , FSAMPLE 
WRITE ( 8 , * ) NSTA , N9 , NNNCT ( 1 ) , FSAMPLE 
WRITE ( 9 , * ) NSTA , N9 , NNNCT ( 1 ) , FSAMPLE 
WRITE (10,*) NSTA , N9 , NNNCT ( 1 ) , FSAMPLE 
WRITE (11,*) NSTA , N9 , NNNCT ( 1 ) , FSAMPLE 
WRITE ( 12 , * ) NSTA , N9 , NNNCT ( 1 ) , FSAMPLE 
WRITE (13,*) NSTA , N9 , NNNCT ( 1 ) , FSAMPLE 


C *************************** 

c * CALCULATE DYNAMIC BEHAVIOR OF THE WHOLE SYSTEM * 


118 


*************************** 

CALL TMM (NSTA) 


FORMAT ( 80A1) 

FORMAT ( 3 ( 80A1 , / ) ) 

FORMAT (2X,3I6,F10.3,I4,F10.3) 

FORMAT ( / , 2 OX, 'MODAL ANALYSIS VERSION 3, OCT. 3,1988') 

FORMAT ( 20X, 'X DIR. MODAL SHAPE OF ROTOR ') 

FORMAT ( 20X, 'T DIR. MODAL SHAPE OF ROTOR ') 

FORMAT ( 20X, ' Z DIR. MODAL SHAPE OF ROTOR ') 

FORMAT (1215) 

FORMAT (1215) 

FORMAT (315) 

FORMAT (10G10.3) 

FORMAT ( 215 , 4G10 . 2 ) 

FORMAT (915) 

FORMAT (8GI.0.3) 

FORMAT (15, 5X, 6G10. 3) 

FORMAT (10G8.3) 

FORMAT (15, 5X,4G10.3) 

FORMAT (15) 

FORMAT (I 10, F10. 7) 

FORMAT (4E15. 6) 

FORMAT (6G10.3) 

FORMAT (3G10.3) 

FORMAT (3G10.3) 

FORMAT (15) 

FORMAT (8F10.5) 

FORMAT (8F10.3) 

FORMAT (215) 

FORMAT (2I5,2F11. 1) 

FORMAT ( I 5 , FI 0 . 5 ) 

FORMAT (15) 

FORMAT (//, 10X, 'NCYCLE=' , 13 , 5X, 'NSTEP=' , 13 , 5X, ' NINT= ' , 13, 5X, 'NINC= 
1' , 13 , 5X, ' NOPT=' , 13 ,/, 10X, 'SPEED2=' , F10.2, 5X, 'ANGACL ( 1/SEC) = ' , F10. 3 
2 , 5X , ' BETA=' , F10 . 5 , //) 

FORMAT (12 OH STATION NO. WEIGHT LENGTH SHAFT DIA. SHAFT D 

HA. I IP-POLAR MOM. IT-TRANS . MOM. EX10-6 El 

2,/120H (LP) (IN.) OUTSIDE INSIDE ( 

3IN**4 ) ( LP-IN* *2 ) ( LB-IN**2 ) ,/) 

FORMAT (I7,F16.3,F12.3,F10.3,F10.3,G11.4,F12.3,F16.3,F11.2,G10.3) 
FORMAT ( 16X , 7H ,5X,7H /7X , F16 . 3 , F12 . 3/) 

FORMAT (/ , 34X, ' LINEAR SUPPORT BEARING STIFFNESS CHARACTER I CS '/) 
FORMAT (5X, 16HBEARING BEARING, 12X, 3HKXX, 16X, 3HKXY, 16X, 3HKYX, 16X, 3 
1HKYY , /5X , 6HNUMBER, 3X , 8HLOCATION , 8X,7H( LB/IN) , 11X, 7H (LB/IN) , 11X, 7H( 
2LB/IN) , 11X, 7H(LB/IN) ) 

FORMAT ( 5X, 13 , 8X, 13 , 9X , Fll . 1 , 5X , Fll . 1 , 8X, Fll . 1 , 8X , Fll . 1) 

FORMAT (/ , 3 5X , ' LINEAR SUPPORT BEARING DAMPING CHARACTERISTICS'/ 
1) 

FORMAT ( 5X, 16HDAMPING DAMPING, 12X, 3HCXX, 16X, 3HCXY, 16X, 3HCYX, 16X, 3 
1HCYY , / , 5X , 6HNUMBER , 3X, 8HLOCATION, 6X, 11H (LB-SEC/IN) , 10X, 11H(LB-SEC/ 
2IN) , 10X, 11H (LB-SEC/IN) , 10X, 11H (LB-SEC/IN) ) 

FORMAT (//, 10X, 'FULL BEARING NO . ' , 12 , 3X, ' AT STATION' , 13 ,/) 

FORMAT (10X, 'BEARING STIFFNESS LB/IN' ,//, 4 (4 ( 5X , G15 . 3 ),/),//, 10X, ' 
1BEARING DAMPING LB-SEC/IN' ,//, 4 (4 ( 5X, G15 . 3 ),/) ) 

FORMAT (//, 2 OX, 'EXTERNAL FORCES ',/, 5X, 'STATION NO . ' , 10X , ' X ' , 15X , ' Y 

l' ',/) 

FORMAT ( 10X ,I3,2(5X,G15.5) ) 

FORMAT (//, 20X, 'SKEWED DISC ',/, 5X ,' STATION NO . ' , 10X, ' SKEW (RAD) ' , 5X 
1, 'PHASE ANGLE DEG.',/) 


1IA. 

2 ,/120H 
3IN**4 ) 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
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1000 

1010 

1020 

1030 

1040 


1050 

1060 

1070 

1071 

1072 
1080 
1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 


1180 

1190 


1200 

1210 

1262 

1260 

1265 

2109 


FORMAT ( 10X, 13 , 2 ( 5X, G15 . 5) ) 

FORMAT (/// , 25X, 'ROTOR UNBALANCE IN OZ-IN.',/) 

FORMAT (5X, 'STATION' , 10X, ' X-UNBALANCE ' , 10X, ' Y-UNBALANCE ' /) 

FORMAT (8X, 12, 12X,F10.3, 11X,F10.3) 

FORMAT (//,20X, 'SHAFT INITIAL CONDITIONS' //, 5X ' STATION NO ' 5X 
1 ' BOW-MILS ' , 5X , 'PHASE ANGLE' , 5X, 'X-DISP' , 10X, 'Y-DISP' 10X, 'X-VEL ' ' 
210X, ' Y-VEL' ,/ , 34X, ' (DEGREES) ' , 6X, ' (MILS) ' , 10X, ' (MILS) ' , 10X 
3 'MILS/IN', 10X, 'MIL/IN',/) 1 ' ' 

FORMAT ( 5X, 13 , 6 ( 5X, F10 . 2 ) ) 

FORMAT (//, 1 OX, 'AVERAGE BEARING STIFFNESS USED FOR CRITICAL SPEED 
1 CALCULATIONS ' ) 

FORMAT (10X, 'BEARING NO. ' ,12, 5X, ' STIFFNESS (LB/IN) ' F12 2) 

FORMAT (1 OX, 'BASE MOTION =',I5) 

FORMAT (10X, 'BEARING ',15, 'CONSTANTS ARE' , 2 (2X, F10. 5) , 2 (2X, F10 3)) 

FORMAT ( 1H1 , /) ' n 

FORMAT (/ / r 5X, ' INITIAL SPEED= ' , F10 . 2 , 5X, ' FINAL SPEED=',F10 2 5X ' 
1SPEED INCREMENTS, FI 0.2, ' RPM',//) 

FORMAT (/13X , 3HRPM, 20X, 5HDELTA, 12X, 2HK1, 13X, 2HK2/) 
(10X,F8.1,9X,E17.9) 

(//, 10X, 'CRITICAL SPEED NO. ',12) 

(/, 10X, 14HCRITICAL SPEED, 11X, 5HDELTA,/) 

(/ , 12X , 6HSTA NO, 10X, 14HNET DEFLECTION, 1 OX, 5HANGLE) 

(12X, 15, 13X, F9. 5, 13X, F9 . 5) 

( 5X , 10 ( F8 . 2 , 2X) ) 

(//, 10X, 'NONLINEAR BEARING FORCES ',//, 5X ,' BEARING NO.' 4X ' 
1STATI0N NO. ' ,4X, 'SEQUENCE ' ,5X, ' VISCOSITY' , 6X, 'RADIUS', 9X, 'LENGTH 
2' ,9X, 'CLEARANCE' ,/, 3 5X, 'NUMBER ' ,6X, 'LB/IN**2' , 7X ,' (IN. ) ' , 10X ' ( 
3IN.) ',10X, '(IN.) ',/) ' ' 1 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


FORMAT (10X, 15, 10X, 15, 10X, 15, 5X, E10 . 4 , 5X, E10 . 4 , 5X,E10.4 , 5X,E10. 4) 
FORMAT (1H1,//, 10X, 'CRITICAL SPEED NO. ' , 15, 15X, F10. 1, 'RPM' ,/ 10X ' 
1M0DAL MASS= ' , F10. 3,2X, ' LB-SEC**;/ IN' ,//, 10X, 'THE ORTHONORMAL MODE 
2SHAPES ' , // , 5X , 'STATION' , 8X, 'TRANSLATIONAL' , 7X, 'ROTATIONAL' ) 

FORMAT (9X,I3,10X,F10.5,10X,F10.5) 

FORMAT (///, 10X, 'THE ORTHOGONAL CONDITIONS OF MODES',/) 

FORMAT ( 2X, ( IX , E10 . 3 ) ) 

FORMAT ( 18X, E13 . 6) 

FORMAT (1X,I3,5(2X,E13.6) ) 

FORMAT (2X, 15 , F13 . 5) 

END 


C 

C 

C 

C 

C 


SUBROUTINE TMM (NSTA) 

*************************************************************** 11 **** 

* THIS SUBROUTINE USES MODAL ANALYSIS METHOD TO CALCULATE THE * 

* GENERAL DYNAMIC BEHAVIOR OF SYSTEM AFTER THE MODAL SHAPES OF * 

* BOTH ROTORS & BOX HAVE BEEN OBTAINED. * 

******************************************************** ************ 


IMPLICIT REAL(A-H,0-Z) 

COMPLEX B, C 

REAL MFX , MFY , MUX , MUY , KMX , KMY , KR 


DIMENSION XDTP(IO) ,XVTP(10) ,XAC(10, 5) ,XLAC(50,5) 

DIMENSION TFX ( 5 , 4096) ,TFY(5,4096) ,SFX(10) ,SFY(10) 

DIMENSION SFRAD(IO) , RFST ( 10 , 4096) ,FXF(5) ,FYF(5) ,FZF(5) 

COMMON /ADD1/ TKXX(10,5) ,TKXY(10,5) ,TKXA(10,5) ,TKXB(10,5) ,TKXZ(10 
L ,5) , TCXX (10,5) , TCXY (10,5) ,TCXA(10,5) ,TCXB(10,5) ,TCXZ(10,5) 

COMMON /ADD2/ TKYX(10,5) ,TKYY(10,5) ,TKYA(10,5) ,TKYB(10,5) ,TKYZ(10 
L ,5) , TCYX (10,5) , TCYY (10,5) ,TCYA(10,5) ,TCYB(10,5) ,TCYZ(10,5) 

COMMON /ADD3/ TKAX ( 10 , 5) , TKAY ( 10 , 5) , TKAA( 10 , 5) , TKAB ( 10 , 5) , TKAZ ( 10 
L ,5) , TCAX (10,5) , TCAY (10,5) ,TCAA(10,5) ,TCAB(10,5) ,TCAZ(10,5) 

COMMON /ADD4/ TKBX (10,5) , TKBY (10,5) , TKBA( 10 , 5) , TKBB (10,5) , TKBZ ( 10 
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1 ,5) , TCBX(10, 5) , TCBY (10,5) ,TCBA(10,5) ,TCBB(10,5) ,TCBZ(10,5) 

COMMON /ADD5/ TKZX(10,5) ,TKZY(10,5) ,TKZA(10,5) ,TKZB(10,5) ,TKZZ(10 
1 ,5) , TCZX ( 10 , 5 ) , TCZY ( 10 , 5 ) ,TCZA(10,5) ,TCZB(10,5) ,TCZZ(10,5) 

COMMON /ADD6/ TOC ( 16 ) , TOD ( 16 ) , TOE ( 16) 

COMMON /TFSA/ ATIME(4100), ANG1 (4100) ,ANG2 (4100) ,ANG3 (4100) , 

1 XI (4100) , X2 ( 4100) , X3 (4100) ,Y1(4100) ,Y2(4100) ,Y3(4100) 

COMMON /BLK1/ N, NB, NNLIN, NMB, NF, NU , NS , NBOW, ISTAB, IMODE , ISKU, NNCT , N 
1UFPT 

COMMON /BLK2/ ISKI P , NSTEP , NCYCLE , NITP , NINT , NPLOT , NORBIT , NTIME , NS PE 
1ED,NINC,N0PT,NT 

COMMON /BLK3/ CRT ( 10) , LLBD ( 10) , LLNB ( 5) , LLNMB (9) , LLSK ( 10) , LLNT ( 10) , 
1LLUF(10) , LLFF (10) ,LLUT(10) ,TCRT(10,5) 

COMMON /BLK4/ 

1 SLNMB (9,4,4) , CLNMB (9,4,4) 

COMMON /BLK5/ UX ( 10) , UY ( 10) , FX ( 10) , FY ( 10) , FSK ( 10) , PSK ( 10) 

COMMON /BLK6/ BOW(IOO) ,PBOW(100) ,XIDC(100) ,YIDC(100) ,VXIDC(100) ,VY 
HDC(IOO) , BXA ( 100) , BYA ( 100) 

COMMON /BLK7/ CMX ( 10 , 10) , KMX ( 10 , 10) , EMX ( 10 , 10) , CMY ( 10 , 10) , KMY ( 10 , 1 
10) ,EMY(10, 10) 

COMMON /BLK8/ MFX ( 10) , MFY ( 10) , MUX ( 10 ) , MUY ( 10) , MBX ( 10) , MBY ( 10) 
COMMON /BLK9/ DDPC ( 10 , 100) , EEYTH ( 10 , 100) 

COMMON /BLK10/ SPS , SPF , SPN , SPEED1 

COMMON /BLK11/ DOX ( 10 , 10) , DOY ( 10 , 10) , EOX ( 10 , 10) , EOY ( 10 , 10) 

COMMON /BLK15/ RP ( 100 ) , RT ( 100 ) 

COMMON /BLK16/ SPEED2 , ANGSP, ANGACL, FSPEED 
COMMON /BLK18/ AKK ( 10) , TAKK ( 10 , 5 ) 

COMMON /BLK19/ DX(100) 

COMMON /BLK20/ A1 ( 2 , 10 ) , A2 ( 2 , 10 ) , A3 ( 2 , 10) , B1 (2 , 10 ) , B2 (2 , 10) , B3 ( 2 , 1 
10) 

COMMON /BLK22/ W(100) 

COMMON /BLK24/ B(20, 21) , C(20) 

COMMON /BLK25/ BETA 
COMMON /BLK29/ PASP 

COMMON /BLK4 0/ BMMFX ( 10) , BMMFY ( 10 ) , TBMMFX (10,5) , TBMMFY (10,5) 

COMMON /BLK41/ NBMOP, ACON1 (10) , ACON2 (10) , AOMG1 (10) , AOMG2 (10) 

COMMON /BLK42/ CLEAR ( 100) , NRUB ( 100) , KR, IND, NSRUB, ABSO, NFACT 
COMMON /BLK43/ RMX ( 10) , RMY ( 10 ) , TRMX ( 10 , 5) , TRMY ( 10 , 5 ) 

COMMON /BLK46/ NSEU , SUX ( 10 ) , SUY ( 10) 

COMMON /BLK60/ SFX,SFY 
COMMON /BLK61/ TFX, TFY 
COMMON /BLK79/ CTIME 
COMMON /BLK9 1/ SFRAD 
COMMON /BLK92/ RFST 
COMMON /SPEED/ TSPEED(5) 

COMMON /JS/ J ST ( 5 ) 

COMMON /SHAPE/ NN ( 5 ) , NNNCT ( 5 ) , NNB ( 5 ) 

COMMON /FOR12 3 / F12 (4100) , F13 (4100) 

COMMON /XYA/ XR1 , XR2 , XR3 , YR1 , YR2 , YR3 , RANG1 , RANG2 , RANG3 
COMMON /OMG/ NNBMOP ( 5) , TACON1 (10,5) , TACON2 (10,5) , TAOMG1 (10,5) , 

1 TAOMG2 ( 10 , 5 ) 

COMMON /FO/ FO ( 5 , 5) , TBRFX (10,5) , TBRFY (10,5) 

COMMON /KTB13 / NKTB , NSK, INSK ( 5 ) , ANGL ( 5 , 3 ) , UANGL ( 5 , 9 ) 

COMMON / KK13 / NP1 ( 4 ) , XG1 ( 4 ) , XMAX1 ( 4 ) , PS11 (4 ) 

COMMON /TMU1/ TMUX (10,5) , TMUY (10,5) , TEXTW (100,5) , TDX (100,5) 

COMMON /TD1/ TDDXT (100,5) , TDDNT (100,5) , TRP ( 100 , 5) 

COMMON /TR1/ TRT (100,5) , TEM6 (100,5) , TRO (100,5) , TGGO (100,5) 

COMMON /MF1/ LTLFF (10,5) , TSFX (10,5) , TSFY (10,5) , TMFX ( 10 , 5 ) 

COMMON /TUI/ LTLUF (10,5) , TUX (10 ,5) ,TUY(10,5) ,TSUX(10,5) ,TSUY(10,5) 
COMMON / SEU1/ LTLNT (10,5) , NTSRUB ( 5 ) , NTSEU ( 5) , NTFACT ( 5 ) , ITND (5) 
COMMON / AAB1/ KTR ( 5 ) , TABSO ( 5 ) , AA1 (2,10,5) , AA2 (2,10,5) , AA3 (2,10,5) 
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COMMON /BBA1/ BB1 ( 2 , 10 , 5) , BB2 ( 2 , 10 , 5) , BB3 (2 , 10 , 5) , TA1 ( 2 , 10 , 5) 
COMMON /TKB1/ TA2 (2,10,5) , TA3 (2,10,5) , TKB(5, 5) , ALPH(5, 5) , RCC(5) 
COMMON /TMB1/ TMBX ( 10 , '5) , TMBY ( 10 , 5) , TWMY (10, 5) , LTLBD( 10 , 5) 
COMMON /TCM1/ TCMX ( 10 , 10, 5) , TCMY ( 10, 10, 5) , TKMX ( 10, 10 , 5) 

COMMON /TDOl/ TDOX ( 10 , 10 , 5) , TDOY ( 10 , 10, 5) , TEOX ( 10, 10 , 5) 

COMMON /TD/ TDDPC (10,100,5) , TEMX (10,10,5) , TEMY (10,10,5) 

COMMON /TW1/ TDMY (10,10,5) , TEEYTH (10, 100, 5) , TW ( 100 , 5) , TWMOD (50,5) 
COMMON /LAS/ TTK(100 , 5) , TMFY ( 10 , 5) , TKMY ( 10 , 10 , 5) , TEOY ( 10 , 10 , 5) , 

1 TDMX(10, 10, 5) 

COMMON /BASE1/ AB, OMEGA, FAB 

COMMON /BOXOl/ OMEGS ( 40) , BX1 (40 , 200 , 6) , LBLBT( 10 , 5 ) , NMBB, NODEB 
COMMON /BOX02/OA1 (2,40) ,OA2(2,40) ,OA3(2,40) , OBI (2, 40) , 

1 OB2 (2,40) , OB3 (2,40) ,JNODE(20) ,FXFXM(40) , FYFYM (20) ,FZFZM(20) 
COMMON /BOX04/OZ1 (2,20) , OZ2 (2,20) , OZ3 (2,20) , AZ1 (2,10,5) 

1 , AZ2 (2,10,5) , AZ3 (2,10, 5) ,TBRFZ(10,5) ,TOA(16) ,TOB(16) ,TOZ(16) 
COMMON /B0X03/ BKZZ(10,5) 

COMMON /BOX 08/ NPT,NPTNO(16) 

COMMON /BLK58/ ZF ( 10 , 5) , ZFV ( 10 , 100, 5) 

ZF — Z-DIR NATURAL FREQUENCIES OF ROTOR 
ZFV — Z-DIR MODAL SHAPES OF ROTOR 

IF (NSK.EQ.O) GO TO 20 
DO 10 1=1, NSK 
II=INSK ( I ) 

Cl=COS (ANGL( 11,1) ) 

C2=COS (ANGL (11,2) ) 

C3=COS (ANGL ( II , 3 ) ) 

S1=SIN (ANGL( II , 1) ) 

S2=SIN (ANGL(II , 2 ) ) 

S3=SIN (ANGL (11,3)) 

UANGL( II , 1) =-C2*C3-Cl*S2*S3 

UANGL(II, 2) =-C2*S3-Cl*S2*C3 

UANGL( II , 3 ) =S1*S2 

UANGL (11,4) =S2*C3+C1*C2*S3 

UANGL(II, 5) =-S2*S3+Cl*C2*C3 

UANGL (II , 6) =-Sl*C2 

UANGL (II , 7) =S1*S3 

UANGL (II , 8) =S1*C3 

UANGL (11,9) =C1 

CONTINUE 

CONTINUE 


*************************** 
— * CALCULATE THE COEFFICIENT OF COMPENSATION TERM * 
*************************** 
DO 111 IJK=1 , NSTA 
CALL TMODE1 (IJK) 


IF (ISKIP.EQ. 1) GO TO 120 

SPEED=TSPEED ( 1 ) 

NSTEP1=NSTEP+ 1 

STEP=NSTEP 

FACT=NFACT 

TCYCLE=60. /SPEED 

TIME=0. 0 

IINT=1 

DO 35 JI=1 , NSTA 
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DO 35 1=1 , NNNCT ( JI ) 

AA3 ( 1 , I , JI) =0 . 0 
AA2 (1,1, JI ) =0 . 0 
35 CONTINUE 

DO 39 1=1 , NMBB 
OA3 (1,1) =0.0 
OA2 (1,1) =0 . 0 
39 CONTINUE 

51 CONTINUE 

701 FORMAT (3G14.6) 

ICOUNT=l 

NK=0 

NPLUS=0 

IF (ABS(ANGACL) .LT. 0.0001) GO TO 61 
NPLUS=9999 
61 CONTINUE 

DO 19 KI=1 , 2 
DO 19 1=1 , NSTA 
LB1=LTLBD (1,1) 

LB2=LTLBD (2,1) 

LB3=LTLBD (3,1) 

SPLB=0. 0 

DO 55 I0=LB1 , LB2-1 

55 SPLB=SPLB+TDX (10,1) 

SLLE=0 . 0 
LB4=LB1-1 

DO 56 12=1, LB4 

56 SLLE=SLLE+TDX (12,1) 

SLGE=0 . 

DO 57 I3=LB2 , LB3-1 

57 SLGE=SLGE+TDX (13,1) 

N1=NN ( I ) 

N2=NNNCT ( I ) 

N3=NNB (I) 

19 CONTINUE 

NJ=NPLUS+1 
PASP=0 . 

ICT=1 

ICOM=NFACT 
TEAM=TIME 
14 = 0 


***************************** 

- * THE LOOP WHICH CALCULATES DYNAMIC RESPONSE BEGINS * 
***************************** 

DO 110 I=IINT, NCYCLE 
TEEM=TIME 
NTCS=NSTEP*NFACT 
DO 100 J=1 , NTCS 
14=14+1 

DELTAT=TCYCLE/ ( STEP* FACT) 

IF (J.GT.NJ) NK=1 


*************************** 

* CALCULATE THE UNBALANCE TERM OF ROTOR EQUATION * 
*************************** 

DO 99 11=1, NSTA 
99 CALL TMODE2 (TIME, DELTAT, TSPEED ( II) , NK, II) 
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DO 67 I 1=1 , NSTA 
DO 62 IJK=1 , NNCT 
TBMMFX ( I JK , 1 1 ) = 0 . 0 
TBMMFY ( I JK , 1 1 ) = 0 . 0 

62 CONTINUE 

IF(NNBMOP(Il) .EQ.O) GO TO 69 
IF (NNBMOP ( II ) .EQ.2) GO TO 64 
DO 63 I JK=1 , NNB (II) 

OMGT=TAOMG 1 ( IJK ,11) *TIME 

BT= (-1.0) *TACON2 ( IJK ,11) *TIME 

EBT=EXP(BT) 

XAC ( IJK, 1 1 ) =TACONl ( IJK, II ) *EBT*COS (OMGT) 

63 CONTINUE 
GO TO 66 

64 CONTINUE 

DO 65 IJK=1 , NNB (II) 

OMGTl=TAOMGl (IJK, II) *TIME 
OMGT2=TAOMG2 (IJK, II) *TIME 

XAC ( IJK ,11) =TACON 1 ( IJK ,11) *SIN(0MGT1) *SIN(OMGT2) 

65 CONTINUE 

66 CONTINUE 

STLP= ( XAC (2,11) -XAC (1,11) )/SPLB 
XLAC(1, II) =XAC(1, II) -STLP*SLLE 
DO 67 IJK=2,N 
IJJ=IJK-1 

XLAC ( IJK ,11) =XLAC ( I J J ,11) +TDX ( I JJ ,11) *STLP 

67 CONTINUE 


DO 68 11=1, NSTA 
DO 68 I JK=1 , NNCT 
EX) 68 I JJ=1 , N 

TBMMFX ( I JK , I 1 ) =TBMMFX ( I JK , I 1 ) -TW ( I JJ ,11) *XLAC ( I J J ,11) *TDDPC 
* ( IJK, IJJ ,11) /386 . 4 

68 CONTINUE 

69 CONTINUE 

XXK=360. 0*TIME/TCYCLE 


****************** 

* CALCULATE THE GEAR STIFFNESS * 

****************** 

DO 27 KK=1 , NKTB 
NK=KK+1 

XXK1=XXK-PS11 (KK) 

CALL STIFF (KK, NP1 (KK) , XG1 (KK) , XMAX1 (KK) , XXK1 , YK12) 
TKB ( 1 , NK) =YK12 
TKB (NK, 1 ) =YK12 
27 CONTINUE 

****************** 

* CALCULATE THE BEARING FORCE * 

****************** 

JN=0 

DO 999 111=1 , NSTA 
DO 999 KKK=1 , NNNCT ( III ) 

TBRFX(KKK, III) =0. 

TBRFY (KKK, III) =0. 
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TBRFZ (KKK, III) =0 . 

999 CONTINUE 

DO 998 JJJ=1 , NMBB 
FXFXM ( JJJ) =0 . 

998 CONTINUE 

DO 88 K3=l , NSTA 
KJST=JST(K3) 

DO 86 J3=l , NNB (K3 ) 

JB=LTLBD(J3,K3) 

JBB=LBLBT(J3,K3) 

IF (JBB.EQ.O) GO TO 86 

JN=JN+1 

JNODE ( JN) =JBB 

XD=0 . 0 

YD=0 . 0 

AD=0 . 0 

BD=0 . 0 

ZD=0 . 0 

XV=0 . 0 

YV=0 . 0 

AV=0 . 0 

BV=0 . 0 

ZV=0 . 0 

DO 84 13=1 , NNNCT ( K3 ) 

XD=XD+AA3 ( 1 , I 3 , K3 ) *TDDPC (13 , JB, K3) 

YD=YD+AA3 ( 1 , I 3 , K3 ) *TEEYTH ( I 3 , JB , K3 ) 

AD=AD+BB3 ( 1 , 1 3 , K3 ) *TDDPC ( I 3 , JB , K3 ) 

BD=BD+BB3 ( 1 , I 3 , K3 ) *TEEYTH ( I 3 , JB , K3 ) 

ZD=ZD+AZ3 (1, I3,K3) *ZFV(I3, JB,K3) 

XV=XV+AA2 (1,13, K3 ) *TDDPC (13 , JB, K3 ) 

YV=YV+AA2 ( 1 , I 3 , K3 ) *TEEYTH ( I 3 , JB , K3 ) 

AV=AV+BB2 ( 1 , I 3 , K3 ) *TDDPC ( I 3 , JB , K3 ) 

BV=BV+BB2 ( 1 , I 3 , K3 ) *TEEYTH ( I 3 , JB , K3 ) 

ZV=ZV+AZ2 ( 1 , I 3 , K3 ) *ZFV ( I 3 , JB , K3 ) 

84 CONTINUE 
XDB=0 . 0 
YDB=0 . 0 
ADB=0 . 0 
BDB=0 . 0 
ZDB=0 . 0 
XVB=0 . 0 
YVB=0 . 0 
AVB=0 . 0 
BVB=0 . 0 
ZVB=0 . 0 

DO 87 14=1, NMBB 

XDB=XDB+OA3 (1,14) *BX1 ( 14 , JBB , 1 ) 

YDB=YDB+OA3 (1, 14) *BX1 ( 14 , JBB, 4 ) 

ADB=ADB+OA3 (1, 14) *BX1 (14, JBB, 2) 

BDB=BDB+OA3 (1,14) *BX1 ( 14 , JBB, 5) 

ZDB=ZDB+OA3 (1,14) *BX1 (14 , JBB, 3 ) 

XVB=XVB+OA2 (1,14) *BX1 (14 , JBB, 1) 

YVB=YVB+OA2 (1,14) *BX1 ( 14 , JBB , 4 ) 

AVB=AVB+OA2 ( 1 , 14) *BX1 ( 14 , JBB, 2 ) 

BVB=BVB+OA2 (1,I4)*BX1(I4,JBB,5) 

ZVB=ZVB+OA2 (1/14) *BX1 ( 14 , JBB , 3 ) 

87 CONTINUE 

FD1=TKXX ( J3 , K3 ) * (XDB-XD) +TKXA ( J3 , K3 ) * ( YDB-YD) +TKXY ( J3 , K3 ) * (ADB-AD) 
& +TKXB ( J3 , K3 ) * ( BDB-BD) +TKXZ ( J3 , K3 ) * ( ZDB-ZD) 
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FD2=TKAX ( J3 , K3 ) * ( XDB-XD) +TKAA ( J 3 , K3 ) * ( YDB-YD) +TKAY ( J3 , K3 ) * ( ADB-AD) 
& +TKAB ( J3 , K3 ) * (BDB-BD) +TKAZ ( J3 , K3) * (ZDB-ZD) 

FD3=TKYX ( J 3 , K3 ) * (XDB-XD) +TKYA ( J3 , K3 ) * (YDB-YD) +TKYY ( J3 , K3 ) * (ADB-AD) 
& +TKYB ( J3 , K3 ) * (BDB-BD) +TKYZ (J3 , K3) * (ZDB-ZD) 

FD4=TKBX ( J3 , K3 ) * (XDB-XD) +TKBA ( J3 , K3 ) * (YDB-YD) +TKBY ( J3 , K3 ) * (ADB-AD) 
& +TKBB ( J3 , K3 ) * ( BDB-BD) +TKBZ ( J3 , K3 ) * (ZDB-ZD) 

FD5=TKZX ( J3 , K3 ) * (XDB-XD) +TKZA ( J3 , K3 ) * (YDB-YD) +TKZY ( J3 , K3 ) * (ADB-AD) 
& +TKZB ( J3 , K3) * (BDB-BD) +TKZZ (J3 ,K3) * (ZDB-ZD) 

FV1=TCXX ( J3 , K3 ) * (XVB-XV) +TCXA ( J3 , K3) * ( YVB-YV) +TCXY ( J3 , K3 ) * (AVB-AV) 
& +TCXB ( J3 , K3 ) * ( BVB-BV) +TCXZ ( J3 , K3 ) * (ZVB-ZV) 

FV2=TCAX ( J3 , K3 ) * ( XVB-XV) +TCAA ( J3 , K3 ) * (YVB-YV) +TCAY ( J3 , K3 ) * (AVB-AV) 
& +TCAB ( J3 , K3 ) * ( BVB-BV) +TCAZ ( J3 , K3 ) * ( ZVB-ZV) 

FV3=TCYX ( J3 , K3 ) * ( XVB-XV) +TCYA ( J3 , K3 ) * (YVB-YV) +TCYY ( J3 , K3 ) * (AVB-AV) 
& +TCYB ( J3 , K3 ) * (BVB-BV) +TCYZ (J3 ,K3) * (ZVB-ZV) 

FV4=TCBX ( J3 , K3 ) * (XVB-XV) +TCBA ( J3 , K3 ) * (YVB-YV) +TCBY ( J3 , K3 ) * (AVB-AV) 
& +TCBB ( J3 , K3 ) * ( BVB-BV) +TCBZ ( J3 , K3 ) * ( ZVB-ZV) 

FV5=TCZX ( J3 , K3 ) * (XVB-XV) +TCZA ( J3 , K3 ) *( YVB-YV) +TCZY (J3 , K3 ) * (AVB-AV) 
& +TCZB ( J3 , K3) * ( BVB-BV) +TCZZ (J3 , K3) * (ZVB-ZV) 

DO 82 113=1, NNNCT(K3) 

TBRFX ( I I 3 , K3 ) =TBRFX ( I I 3 , K3 ) + ( FD1+FV1 ) *TDDPC ( I I 3 , JB , K3 ) 

& + ( FD2+FV2 *TEEYTH(II3, JB,K3) 

TBRFY (113 , K3) =TBRFY (113 , K3) + (FD3+FV3) *TDDPC ( 113 , JB, K3 ) 

& + ( FD4+FV4 ) *TEEYTH (II3,JB,K3) 

TBRFZ ( 113 , K3 ) =TBRFZ ( 113 , K3 ) + ( FD5+FV5) *ZFV ( 113 , JB, K3 ) 

82 CONTINUE 

TBRFX — MODAL BEARING FORCE OF X-DIRECTION ON ROTOR 

TBRFY — MODAL BEARING FORCE OF Y-DIRECTION ON ROTOR 

TBRFZ — MODAL BEARING FORCE OF Z-DIRECTION ON ROTOR 

DO 83 15=1, NMBB 

FXFXM(I5) =FXFXM( 15) - (FD1+FV1) * BX 1 ( 1 5 , JBB , 1 ) 

FXFXM (15) =FXFXM ( 15) - ( FD2+FV2 ) *BX1 ( 15 , JBB, 4 ) 

FXFXM(I5) =FXFXM(T5) - (FD3+FV3) *BX1 (15, JBB, 2) 

FXFXM (15) = FXFXM ( 15) - (FD4+FV4 ) *BX1 ( 15 , JBB, 5) 

FXFXM ( 15 ) = FXFXM ( 15) - ( FD5+FV5) *BX1 (15, JBB, 3) 

83 CONTINUE 

FXFXM — MODAL BEARING FORCE ON ROTOR 

86 CONTINUE 

88 CONTINUE 


********************* 

- * SOLVE THE MODAL EQUATION OF ROTOR * 
********************* 

CALL TACCEL (NSTA) 


NIJ=(I— 1) *NSTEP+J 
IF (ICOM. NE . NFACT) GO TO 78 
IF (NNLIN. NE . 0) GO TO 75 
DO 74 KK=1 , NSTA 
DO 74 IJL=1 , NB 
IB=LTLBD ( IJL, KK) 

X=0.0 
Y=0 . 0 
VX=0 . 0 
VY=0 . 0 

DO 73 IJN=1 , NNCT 

X=X+AA3 ( 1 , I JN , KK ) *TDDPC ( I JN , I B , KK ) 
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VX=VX+AA2 ( 1 , I JN , KK) *TDDPC ( I JN , I B , KK) 

Y=Y+BB3 (1, IJN,KK) *TDDPC(IJN, IB, KK) 

73 VY=VY+BB2 (1, IJN,KK) *TDDPC(IJN, IB, KK) 

TFX ( I JL, ICT) =TCXX ( I JL, KK) *VX+ TCXA ( IJL, KK) *VY+ (TKXX ( IJL, KK) +TAKK ( I 
&JL, KK) ) *X+TKXA ( IJL, KK) *Y 

74 CONTINUE 

75 IF(NSRUB.EQ. 0) GO TO 77 
DO 76 IJL=1 , NSRUB 

76 RFST ( IJL, ICT) =SFRAD ( IJL) 

77 ICT=ICT+1 
ICOM=0 

78 I COM= I COM+ 1 
TIME=TIME+DELTAT 

C ******************************* 

C * SOLVE THE MODAL EQUATION OF BOX & INTEGRATE THE RESULT * 

C ******************************* 

GO TO (70,80) , NINT 

C WITH NEWMARK BETA METHOD 

70 CALL TBETA (NNCT, DELTAT, NSTA, TIME) 

GO TO 90 

C WITH EULER METHOD 

80 CALL TINTG (NNCT, DELTAT) 

90 CONTINUE 


IF ( ICOM. NE . 1) GO TO 96 
I COUNT= I COUNT+ 1 
FI=I COUNT 

ATIME ( I COUNT) =FI* DELTAT* FACT 

XI ( ICOUNT) =XR1 

X2 (I COUNT) =XR2 

X3 (ICOUNT) =XR3 

Yl( ICOUNT) =YR1 

Y2 (ICOUNT) =YR2 

Y3 (ICOUNT) =YR3 

ANG1 (ICOUNT) =RANG1 

ANG2 (ICOUNT) =RANG2 

ANG3 (ICOUNT) =RANG3 

F12 (ICOUNT) = FO (1,2) 

F13 (ICOUNT) =FO (1,3) 

DO 93 JI=1 , NSTA 

WRITE (7,707) (AA3 ( 1 , II , JI ), 11=1 , NNCT) 
93 WRITE (8,708) ( BB3 ( 1 , II , JI ), 11=1 , NNCT) 

WRITE (10,710) (TOA(JI) ,JI=1,NPT) 

96 CONTINUE 

PAS P= PAS P+ DE LT AT *SPEED*0 . 104719 
TCYCLE=60 . /SPEED 
100 CONTINUE 
110 CONTINUE 
120 CONTINUE 

901 FORMAT (4E18 . 6) 

902 FORMAT (F10. 7) 

N9=ICOUNT 

707 FORMAT (3G14.6) 

708 FORMAT (10X,3G14.6) 

709 FORMAT (9G9.2 ) 

710 FORMAT (8G9.2 ) 

WRITE (9, 9901) (F12 (I) ,I=1,N9) 
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9901 FORMAT (F12 . 6) 

WRITE (11, 9) (XI (I) ,Y1(I) , 1=1 , N9 ) 
WRITE (12, 9) (X2 (I) ,Y2 (I) ,I=1,N9) 
9 FORMAT (2X, 2F10. 7) 

RETURN 

END 


SUBROUTINE TM0DE1 (II) 

C ********************************************************************* 
C * THIS SUBROUTINE CALCULATES THE MODAL COEFFICIENTS WHICH APPEARS * 
C * IN THE MODAL EQUATION OF ROTORS * 

C ********************************************************************* 
IMPLICIT REAL(A-H,0-Z) 

REAL MFX , MFY , MUX , MUY , KMX , KMY 
REAL KXX , KXY , KXA , KXB , KXZ 
REAL KYX, KYY , KYA, KYB, KYZ 
REAL KAX , KAY , KAA , KAB , KAZ 
REAL KBX , KBY , KBA , KBB , KBZ 
REAL KZX, KZY , KZA, KZB , KZZ 

COMMON /ADD1/ TKXX(10,5) ,TKXY(10,5) ,TKXA(10,5) ,TKXB(10,5) ,TKXZ(10 
1 ,5) , TCXX (10,5) , TCXY (10,5) ,TCXA(10,5) ,TCXB(10,5) ,TCXZ(10,5) 

COMMON /ADD2/ TKYX(10,5) ,TKYY(10,5) ,TKYA(10,5) ,TKYB(10,5) ,TKYZ(10 
1 ,5) , TCYX (10,5) , TCYY (10,5) ,TCYA(10,5) ,TCYB(10,5) ,TCYZ(10,5) 

COMMON /ADD3/ TKAX ( 10 , 5) , TKAY ( 10 , 5) , TKAA( 10 , 5) , TKAB ( 10 , 5) , TKAZ ( 10 
1 ,5) , TCAX (10,5) , TCAY ( 10 , 5) ,TCAA(10,5) ,TCAB(10,5) ,TCAZ(10,5) 

COMMON /ADD4/ TKBX(10,5) ,TKBY(10,5) ,TKBA(10,5) ,TKBB(10,5) ,TKBZ(10 
1 ,5) , TCBX (10,5) ,TCBY (10,5) ,TCBA(10,5) ,TCBB(10,5) ,TCBZ(10,5) 

COMMON /ADD5/ TKZX(10,5) ,TKZY(10,5) ,TKZA(10,5) ,TKZB(10,5) ,TKZZ(10 
1 ,5) , TCZX ( 10,5) , TCZY (10,5) ,TCZA(10,5) ,TCZB(10,5) ,TCZZ(10,5) 

COMMON /ADD6/ TOC ( 16) , TOD ( 16 ) , TOE ( 16) 

COMMON /BLK1/ N , NB, NNLIN , NMB, NF, NU, NS , NBOW, ISTAB, IMODE , ISKU , NNCT, N 
1UFPT 

COMMON /BLK3 / CRT ( 10) , LLBD ( 10) , LLNB( 5) , LLNMB (9) , LLSK( 10) , LLNT ( 10) , 
1LLUF(10) , LLFF (10) ,LLUT(10) ,TCRT(10,5) 

COMMON /BLK4/ 

1 SLNMB (9,4,4) , CLNMB (9,4,4) 

COMMON /BLK7/ CMX ( 10 , 10) , KMX ( 10 , 10) , EMX ( 10 , 10) , CMY ( 10 , 10) , KMY ( 10 , 1 
10) ,EMY(10, 10) 

COMMON /BLK9/ DDPC ( 10 , 100) , EEYTH ( 10 , 100) 

COMMON /BLK11/ DOX ( 10 , 10) , DOY ( 10 , 10) , EOX ( 10 , 10) , EOY ( 10 , 10) 

COMMON /BLK22/ W(100) 

COMMON /BLK35/ WMY ( 10) , VIS ( 5) , ANR ( 5) , ANL( 5) , ANC ( 5) , NLB( 5) 

COMMON /SHAPE/ NN (5) , NNNCT ( 5) , NNB ( 5) 

COMMON /TDC / TTCM( 10 , 10 , 5) 

COMMON /BLK54/ FR(10,5), FFV ( 10 , 100 , 5) 

COMMON /BLK58/ ZF ( 10 , 5) , ZFV ( 10 , 100 , 5) 

COMMON / RDDT / NTTD(5) , LLTD(10, 5) ,TTCC(10, 5) 

COMMON /TMU1/ TMUX ( 10 , 5) , TMUY ( 10 , 5 ) , TEXTW ( 100 , 5) , TDX ( 100 , 5) 

COMMON /TD1/ TDDXT(100, 5) ,TDDNT(100, 5) ,TRP(100, 5) 

COMMON /TR1/ TRT (100,5) , TEM6 (100,5) ,TRO (100,5) , TGGO (100,5) 

COMMON /MF1/ LTLFF (10,5) , TSFX ( 10 , 5) ,TSFY (10,5) , TMFX (10,5) 

COMMON /TUI/ LTLUF (10,5) , TUX (10, 5) ,TUY(10,5) ,TSUX(10,5) ,TSUY(10,5) 
COMMON /SEU1/ LTLNT (10,5) , NTSRUB ( 5 ) , NTSEU ( 5 ) , NTFACT ( 5 ) , ITND ( 5 ) 
COMMON /AAB1/ KTR ( 5) , TABSO ( 5) , AA1 (2 , 10 , 5) , AA2 ( 2 , 10 , 5) , AA3 ( 2 , 10 , 5) 
COMMON /BBA1/ BB1 ( 2 , 10 , 5) , BB2 ( 2 , 10 , 5) , BB3 (2 , 10 , 5) , TA1 ( 2 , 10 , 5) 
COMMON /TKB1/ TA2 (2,10,5) , TA3 (2,10,5) , TKB (5,5) , ALPH (5,5) , RCC ( 5 ) 
COMMON /TMB1/ TMBX ( 10 , 5) , TMBY ( 10 , 5) , TWMY ( 10 , 5) , LTLBD ( 10 , 5) 

COMMON /TCM1/ TCMX (10 , 10, 5) ,TCMY ( 10, 10, 5) ,TKMX( 10 , 10, 5) 

COMMON /TDOl/ TDOX ( 10 , 10 , 5 ) , TDOY ( 10 , 10 , 5) , TEOX ( 10 , 10 , 5 ) 
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COMMON /TD/ TDDPC (10,100,5) , TEMX (10,10,5) , TEMY (10,10,5) 

COMMON /TW1/ TDMY (10,10,5) , TEEYTH (10,100,5) , TW (100,5) , TWMOD ( 50 , 5 ) 
COMMON /LAS/ TTK(100 , 5 ) , TMFY ( 10 , 5) , TKMY ( 10 , 10 , 5) , TEOY ( 10 , 10 , 5) , 

1 TDMX(10, 10, 5) 

DO 10 1=1 , NNNCT (II) 

DO 10 J=l, NNNCT (II) 

TKMX ( I , J , I 1 ) =0 . 

TKMY (I,J,I1)=0. 

TEOY ( I , J , 1 1 ) =0 . 

TTCM ( I , J , II) =0 . 

10 CONTINUE 

DO 30 1=1 , NNB (II) 

J=LTLBD (1,11) 

DO 20 K=1 , NNNCT (II) 

DO 20 L=l, NNNCT (II) 

TKMX ( K , L , I 1 ) =TKMX ( K , L , I 1 ) +TKXX (1,11) *TDDPC (K, J , II) *TDDPC(L, J, II) 
TKMY ( K , L , I 1 ) =TKMY ( K , L , I 1 ) +TKY Y (1,11) *TDDPC (K, J , II ) *TDDPC (L, J , II) 
TKMX ( K , L , II) = (TKMX (K, L, II) +TKMY (K, L, II) )/2. 

20 TEOY (K, L, II) =TEOY (K, L, I 1) +TKZZ (1,11) *ZFV(K, J , II ) *ZFV(L, J,I1) 

30 CONTINUE 

DO 100 1=1 , NTTD (II) 

L=LLTD(I, II) 

DO 100 J=1 , NNNCT (II) 

DO 100 K=l, NNNCT (II) 

TTCM ( J , K, I 1) =TTCM ( J , K, II ) +TTCC ( I , II) *FFV(J,L,I1) *FFV(K,L,I1) *0.0 
100 CONTINUE 

RETURN 
END 


SUBROUTINE TMODE2 (T, DELTAT , SPEED, NK, II) 

C ****************************************************************** 

C * THIS SUBROUTINE CALCULATES THE MODAL UNBALANCE FOR TRANSIENT * 

C * RESPONSE ANALYSIS * 

C ****************************************************************** 
IMPLICIT REAL(A-H, O-Z) 

REAL MBX, MBY 

REAL MFX , MFY , MUX , MUY , KMX , KMY 

REAL KXX , KXY , KXA , KXB , KXZ 

REAL KYX, KYY, KYA, KYB, KYZ 

REAL KAX , KAY , KAA , KAB , KAZ 

REAL KBX , KBY , KBA , KBB , KBZ 

REAL KZX, KZY , KZA, KZB, KZZ 

COMMON /BLK1/ N , NB , NNLIN , NMB , NF , NU , NS , NBOW , ISTAB , IMODE , ISKU , NNCT , N 
1UFPT 

COMMON /BLK2/ ISKIP , NSTEP , NCYCLE , NITP, NINT, NPLOT , NORBIT, NTIME , NSPE 
1ED, NINC, NOPT , NT 

COMMON /BLK3/ CRT ( 10) , LLBD ( 10) , LLNB ( 5) , LLNMB (9) , LLSK ( 10) , LLNT ( 10) , 
1LLUF(10) , LLFF (10) ,LLUT(10) ,TCRT(10,5) 

COMMON /BLK5/ UX ( 10) , UY ( 10) , FX ( 10) , FY ( 10) , FSK ( 10 ) , PSK ( 10) 

COMMON /BLK6/ BOW(IOO) ,PBOW(100) ,XIDC(100) ,YIDC(100) ,VXIDC(100) ,VY 
HDC(IOO) ,BXA(100) ,BYA(100) 

COMMON /BLK7/ CMX ( 10 , 10 ) , KMX ( 10 , 10) , EMX ( 10 , 10) , CMY ( 10 , 10) , KMY ( 10 , 1 
10) ,EMY(10, 10) 

COMMON /BLK8/ MFX ( 10 ) , MFY ( 10 ) , MUX ( 10) , MUY ( 10 ) , MBX ( 10 ) , MBY ( 10) 
COMMON /BLK9/ DDPC ( 10 , 100 ) , EEYTH ( 10 , 100) 

COMMON /BLK11/ DOX ( 10 , 10) , DOY ( 10 , 10) , EOX ( 10 , 10) , EOY ( 10 , 10) 

COMMON /BLK1 5/ RP ( 100 ) , RT ( 100 ) 

COMMON /BLK16/ SPEED2 , ANGSP, ANGACL, FSPEED 
COMMON /BLK18/ AKK ( 10) , TAKK ( 10 , 5) 
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COMMON /BLK2 1/ DMX ( 10 , 10) , DMY ( 10 , 10) 

COMMON /BLK29/ PASP 
COMMON /SPEED/ TSPEED(5) 

COMMON /TMU1/ TMUX ( 10 , 5) , TMUY ( 10 , 5) , TEXTW( 100, 5) , TDX ( 100 , 5) 

COMMON /TD1/ TDDXT ( 100 , 5) , TDDNT (100,5) ,TRP( 100, 5) 

COMMON /TR1/ TRT (100,5) , TEM6 (100,5) , TRO ( 100, 5) ,TGGO (100,5) 

COMMON /MF1/ LTLFF (10,5) , TSFX (10,5), TSFY (10,5) , TMFX (10,5) 

COMMON /TUI/ LTLUF (10,5) , TUX (10,5) , TUY (10,5) , TSUX (10,5) , TSUY (10,5) 
COMMON /SEU1/ LTLNT (10,5) , NTSRUB ( 5) , NTSEU (5) , NTFACT ( 5) , ITND( 5) 
COMMON /AAB1/ KTR (5) , TABSO ( 5) , AA1 ( 2 , 10, 5) , AA2 (2 , 10, 5) , AA3 (2 , 10 , 5) 
COMMON /BBA1/ BB1 ( 2 , 10 , 5) , BB2 ( 2 , 10 , 5) , BB3 (2 , 10 , 5) , TA1 (2 , 10 , 5) 
COMMON /TKB1/ TA2 (2,10,5) ,TA3 (2,10,5) ,TKB(5, 5) , ALPH(5, 5) , RCC(5) 
COMMON /TMB1/ TMBX ( 10 , 5 ) , TMBY ( 10 , 5) , TWMY(10, 5) , LTLBD(10, 5) 

COMMON /TCM1/ TCMX ( 10 , 10 , 5) , TCMY ( 10 , 10, 5) ,TKMX( 10 , 10 , 5) 

COMMON /TDOl/ TDOX ( 10 , 10 , 5) , TDOY ( 10 , 10 , 5) ,TEOX ( 10 , 10 , 5) 

COMMON /TD/ TDDPC (10,100,5) , TEMX (10,10,5), TEMY (10,10,5) 

COMMON /TW1/ TDMY (10,10,5) , TEEYTH (10,100,5), TW (100,5) , TWMOD (50,5) 
COMMON /LAS/ TTK(100 , 5) , TMFY ( 10 , 5) , TKMY ( 10 , 10 , 5) , TEOY ( 10 , 10 , 5) , 

1 TDMX(10, 10, 5) 

PI=3. 14159 

ANGSP=TSPEED (II) * PI/30. 

DO 10 1=1 , NNCT 
TMUX ( I, II) =0. 

TMUY (1,11) =0 . 

10 CONTINUE 

DO 30 1=1, NU 
J=LTLUF (1,11) 

PHI=ATAN2 ( TUY (1,11) ,TUX(I,I1) ) 

OMT=ANGSP*T+PHI 
C PMT=OMT+3 . 1415926 

IF (NK.EQ.O) OMT=PAS P+PHI 

TME= ( TUX (1,11) *TUX (1,11) +TUY (1,11) *TUY (I,I1))**0.5 
DO 20 K=1 , NNCT 

TMUX ( K , I 1 ) =TMUX ( K , II) + (ANGACL*SIN (OMT) +ANGSP*ANGSP*COS (OMT) ) 

1 *TME*TDDPC(K, J, II) 

I F ( I 1 . EQ . 2 ) GOTO 654 

TMUX (K, II) =TMUX(K, II) + (ANGACL*SIN (OMT) +ANGSP*ANGSP*COS (OMT) ) 

1 *TME*TDDPC(K, J, II) +TME *TDDPC (K,J,I1) 

1 *ANGSP*ANGSP* ( 11-1) * (COS (OMT*2 . ) /4 . +COS (OMT*3 . ) /5 . ) 

TMUY (K, II) =TMUY (K, II) + (ANGSP*ANGSP*SIN (OMT) ) 

1 *TME*TDDPC (K, J ,11) +TME *TDDPC ( K , J , 1 1 ) 

1 * ANGS P* ANGS P* (I1-1)*(SIN( OMT* 2 . ) / 4 . +SIN (OMT* 3 . ) / 5 . ) 

C GO TO 20 

C654 TMUX ( K , I 1 ) =TMUX (K, II) + (ANGACL*SIN ( PMT) +ANGSP*ANGSP*COS ( PMT ) ) 

C 1 *TME*TDDPC(K, J, II) +TME*TDDPC(K, J, II) 

C 1 *ANGSP*ANGSP* ( 1 1-1) * (COS ( PMT*2 . ) / 4 - +COS (PMT*3 . ) /5 . ) 

C TMUY (K, II) =TMUY (K, II ) + (ANGSP*ANGSP*SIN(PMT) ) 

C 1 *TME*TDDPC(K, J, II) +TME*TDDPC(K, J, II) 

C 1 *ANGSP*ANGSP* ( 11-1) * (SIN ( PMT* 2 . ) /4 . +SIN (PMT* 3 . ) /5 . ) 

C TMUY (K, II) =TMUY (K, II) + ( ANGS P* ANGS P*S IN (OMT) -ANGACL*COS (OMT) ) 

C 1 *TME*TDDPC(K, J, II) 

20 CONTINUE 

30 CONTINUE 

RETURN 
END 


SUBROUTINE TACCEL (NSTA) 

c ****************************************************************** 
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* THIS SUBROUTINE CALCULATES THE MODAL ACCELERATION BY SOLVING * 

* THE MODAL EQUATIONS OF ROTORS * 

****************************************************************** 


IMPLICIT REAL(A-H, O-Z) 

REAL MFX , MFY , MUX , MUY , KMX , KMY , KR 

COMMON /ADD1/ TKXX ( 10 , 5) , TKXY ( 10 , 5) , TKXA ( 10 , 5) , TKXB ( 10 , 5) , TKXZ ( 10 
1 ,5) , TCXX (10,5) , TCXY (10,5) ,TCXA(10,5) ,TCXB(10,5) ,TCXZ(10,5) 

COMMON /ADD2/ TKYX(10,5) ,TKYY(10,5) ,TKYA(10,5) ,TKYB(10,5) ,TKYZ(10 
1 ,5) , TCYX (10,5) , TCYY (10,5) ,TCYA(10,5) ,TCYB(10,5) ,TCYZ(10,5) 

COMMON /ADD3/ TKAX ( 10 , 5) , TKAY ( 10 , 5) , TKAA( 10 , 5) , TKAB ( 10 , 5) , TKAZ ( 10 
1 ,5) , TCAX (10,5) , TCAY ( 10 , 5 ) ,TCAA(10,5) ,TCAB(10,5) ,TCAZ(10,5) 

COMMON /ADD4/ TKBX(10,5) ,TKBY(10,5) ,TKBA(10,5) ,TKBB(10,5) ,TKBZ(10 
1 ,5) , TCBX (10,5) , TCBY (10,5) ,TCBA(10,5) ,TCBB(10,5) ,TCBZ(10,5) 

COMMON /ADD5/ TKZX(10,5) ,TKZY(10,5) ,TKZA(10,5) ,TKZB(10,5) ,TKZZ(10 
1 ,5) , TCZX (10,5) , TCZY (10,5) ,TCZA(10,5) ,TCZB(10,5) ,TCZZ(10,5) 

COMMON /ADD6/ TOC(16) ,TOD(16) ,TOE(16) 

COMMON /BLK1/ N , NB, NNLIN, NMB, NF, NU, NS , NBOW, ISTAB, IMODE , ISKU , NNCT, N 
1UFPT 

COMMON /BLK3/ CRT ( 10) , LLBD ( 10) , LLNB(5) , LLNMB (9 ) , LLSK ( 10) , LLNT ( 10) , 
1LLUF(10) , LLFF (10) ,LLUT(10) ,TCRT(10,5) 

COMMON /BLK7/ CMX ( 10 , 10) , KMX ( 10 , 10) , EMX ( 10 , 10) , CMY ( 10 , 10) , KMY ( 10 , 1 
10) ,EMY(10, 10) 

COMMON /BLK8/ MFX ( 10) , MFY ( 10) , MUX ( 10) , MUY ( 10) , MBX ( 10) , MBY ( 10) 
COMMON /BLK9/ DDPC ( 10 , 100) , EEYTH ( 10 , 100) 

COMMON /BLK2 0/ A1 (2 , 10) , A2 (2, 10) , A3 (2, 10) ,B1 (2, 10) ,B2 (2, 10) ,B3 (2 , 1 
10) 

COMMON /BLK2 1/ DMX ( 10 , 10) , DMY ( 10 , 10) 

COMMON /BLK40/ BMMFX ( 10) , BMMFY ( 10) , TBMMFX ( 10 , 5) , TBMMFY ( 10 , 5) 

COMMON /BLK42/ CLEAR ( 100 ), NRUB ( 100) , KR, IND, NSRUB, ABSO, NFACT 
COMMON /BLK43/ RMX ( 10 ) , RMY ( 10) , TRMX (10,5) , TRMY (10,5) 

COMMON /BLK54/ FR(10,5), FFV ( 10 , 100 , 5 ) 

COMMON /JS/ JST (5) 

COMMON /TOU/ TOUT (5) , FORCE Z (5) 

COMMON /SHAPE/ NN ( 5) , NNNCT ( 5) , NNB ( 5) 

COMMON /FO/ FO (5,5) , TBRFX (10,5) , TBRFY ( 10 , 5) 

COMMON /XYA/ XR1 , XR2 , XR3 , YR1 , YR2 , YR3 , RANG1 , RANG2 , RANG3 
COMMON /TDC / TTCM ( 10 , 10 , 5) 

COMMON /KTB13 / NKTB, NSK, INSK ( 5) , ANGL(5 , 3 ) , UANGL( 5 , 9 ) 

COMMON /TMU1/ TMUX ( 10 , 5) , TMUY ( 10 , 5 ) , TEXTW ( 100 , 5 ) , TDX ( 100 , 5 ) 

COMMON /TD1/ TDDXT (100,5) , TDDNT (100,5) , TRP ( 100 , 5 ) 

COMMON /TR1/ TRT (100,5) , TEM6 (100,5) , TRO (100,5) , TGGO (100,5) 

COMMON /MF1/ LTLFF (10,5) , TSFX (10,5) , TSFY (10,5) , TMFX (10,5) 

COMMON /TUI/ LTLUF ( 10 , 5 ) , TUX (10, 5) ,TUY(10,5) ,TSUX(10,5) ,TSUY(10,5) 
COMMON /SEU1/ LTLNT (10,5) , NTSRUB ( 5) , NTSEU ( 5) , NTFACT ( 5) , ITND (5) 
COMMON /AAB1/ KTR ( 5) , TABSO ( 5 ) , AA1 (2,10,5) , AA2 (2,10,5) , AA3 (2,10,5) 
COMMON /BBA1/ BB1 (2 , 10, 5) , BB2 (2 , 10, 5) , BB3 (2 , 10, 5) ,TA1 (2 , 10, 5) 
COMMON /TKB1/ TA2 (2,10,5) , TA3 (2,10,5) , TKB(5 , 5) , ALPH (5,5) , RCC (5) 
COMMON /TMB1/ TMBX ( 10 , 5) , TMBY ( 10 , 5) , TWMY ( 10 , 5) , LTLBD ( 10 , 5 ) 

COMMON /TCM1/ TCMX ( 10 , 10 , 5 ) , TCMY ( 10 , 10 , 5) , TKMX ( 10 , 10 , 5) 

COMMON /TDOl/ TDOX ( 10 , 10 , 5) , TDOY ( 10 , 10 , 5) , TEOX ( 10 , 10 , 5) 

COMMON /TD/ TDDPC (10,100,5) , TEMX (10,10,5) , TEMY ( 10 , 10 , 5) 

COMMON /TW1/ TDMY (10,10,5) , TEEYTH (10,100,5) , TW (100,5) , TWMOD (50,5) 
COMMON /LAS/ TTK(100 , 5 ) , TMFY ( 10 , 5) , TKMY ( 10 , 10 , 5) , TEOY ( 10 , 10 , 5) , 

1 TDMX (10,10,5) 


IF (NNLIN. EQ.O) GO TO 10 
CALL BNF 
10 CONTINUE 


C *********************** 
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C * CALCULATE ROTOR'S MODAL ACCELERATIONS * 

C *********************** 


DO 30 11=1, NSTA 
DO 30 L=1 , NNNCT (II) 

ABC=0 . 0 
BCA=0 . 0 
CAB=0 . 0 

IF (Il.EQ.l) THEN 

JT=2 

ELSE 

JT=23 

END IF 

TA1 ( 1 , L, II) =FFV (L, JT, II) *TOUT (II) -FR ( L, I 1 ) **2*TA3 ( 1 , L, II) 

AA1 ( 1 , L, I 1 ) =TMUX (L, II) +TBRFX ( L, II) - (TCRT(L, II) *0.1047195) **2 
1 *AA3 ( 1 , L, II) -AA2 (1,L,I1)*0.0 

BB1 (1, L, II) =TBRFY (L, II) - (TCRT (L, II) *0.1047195) **2 
1 *BB3 ( 1 , L, II) -BB2 (1, L, II) -TMUY (L, II) * (11-2) +TMUY (L, II) *0.20 
DO 34 JK=1, NNNCT (II) 

TA1 ( 1 , L, I 1 ) =TA1 ( 1 , L, I 1 ) -TTCM (L, JK, II) *TA2 ( 1 , JK, II) 

AA1 ( 1 , L, I 1) =AA1 ( 1 , L, I 1 ) +TKMX (L, JK, II) *AA3 ( 1 , JK, II) 


BB1 ( 1 , L, II ) =BB1 ( 1 , L, I 1 ) +TKMX ( L, JK, II) *BB3 ( 1 , JK, II) 
34 CONTINUE 

C ****************** 

C * CALCULATE ROTOR'S GEAR FORCE * 

C ****************** 

DO 38 K=1 , NSTA 
IF (K.EQ.I1) GO TO 38 

IF ( (Il.GT. 1) . AND. (K.GT. 1) ) GO TO 38 


AB=0 . 0 
BC=0 . 0 
CD=0 . 0 
DE=0 . 0 
EF=0 . 0 
FG=0 . 0 
VE1=0. 0 
VE2=0 . 0 
FO ( II , K) =0 . 0 
DO 36 1=1, NNNCT (K) 

AB=AB+TA3 ( 1 , I , K) *FFV ( I , JST (K) , K) 

BC=BC+TA3 (1,1,11) *FFV ( I , JST (II) ,11) 
CD=CD+AA3 ( 1 , I , K) *TDDPC ( I , JST ( K) , K) 
DE=DE+AA3 (1,1,11) *TDDPC ( I , JST ( I 1 ) , I 1 ) 
EF=EF+BB3 ( 1 , I , K) *TDDPC ( I , JST ( K) , K) 
FG=FG+BB3 (1,1,11) *TDDPC ( I , JST (II) ,11) 

VE1= BB2 (1,1,11) *TDDPC (I,JST(I1) ,I1)+VE1 
VE2= BB2 ( 1 , I , K) *TDDPC ( I , JST ( K) , K) +VE2 
36 CONTINUE 

A=— ABS (RCC (K) *AB+RCC(I1) *BC) 

IF ( ( (CD-DE) *SIN (ALPH (II , K) ) ) .GT.0.0) THEN 

C=0. 0 

ELSE 

C= (CD-DE) *SIN (ALPH ( I 1 , K) ) 

ENDIF 

IF ( ( (EF-FG) *COS (ALPH ( II , K) )) .GT.0.0) THEN 

E=0 . 0 

ELSE 

E= (EF-FG) *COS ( ALPH ( I 1 , K) ) 

ENDIF 
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RUA= (VE2-VE1) /700. 

ABCD1=TKB ( II , K) * (A+C+E) *1.50 
RUAN=TKB ( I 1 , K) *RUA*0.05 
ABCD2=ABCD1*TDDPC(L, JST(Il) ,11) 

ABCD3=ABCD1*FFV (L, JST(Il) ,11) 

C ABC=ABC+ABCD2*SIN (ALPH (II , K) ) +RUAN 

ABC=ABC+RUAN 

BCA=BCA+ABCD2*COS (ALPH (II, K) ) 

CAB=CAB+ABCD3 *RCC (II) 

FO ( II , K) =FO ( II , K) +ABCD1 
38 CONTINUE 

AA1 (1 , L, II) =AA1 (l,L,Il)+0. 2*ABC 

BB1 ( 1 , L, II ) =BB1 ( 1 , L, II) + (11-1) *0. 05*BCA+0.04*BCA 
TA1 ( 1 , L, II ) =TA1 ( 1 , L, II) +CAB 

**************** 

- * OUTPUT THE ROTOR'S ORBIT * 
**************** 

IF(Il.EQ.l) RANG1=BC 
IF (II. EQ . 2 ) RANG2=BC 
IF ( II . EQ . 3 ) RANG3=BC 
IF(Il.EQ.l) XR1=DE 
IF ( II . EQ. 2 ) XR2=DE 
IF ( II . EQ . 3 ) XR3=DE 
IF(Il.EQ.l) YR1=FG 
IF (II . EQ. 2 ) YR2=FG 
IF ( II . EQ. 3 ) YR3=FG 
30 CONTINUE 
RETURN 
END 


SUBROUTINE TINTG (NNCT, DELTAT) 

C ********************************************************************* 
C * THIS SUBROUTINE INTEGRATES THE MODAL ACCELERATION INTO VELOCITY * 
C * AND DISPLACEMENT BY MODIFIED EULER METHOD * 

C ★★★★★•********★★**★**★**★★*★*****★*****★***★***********★***********■*** 
IMPLICIT REAL(A-H, O-Z) 

COMMON /BLK2/ ISKIP , NSTEP , NCYCLE , NITP, NINT, NPLOT , NORBIT , NTIME , Ni PE 
1ED , NINC , NOPT , NT 

COMMON /BLK20/ A1 (2 , 10) , A2 (2 , 10) , A3 (2 , 10) , B1 (2 , 10) , B2 ( 2 , 10) , B3 (2 , 1 
10) 

DO 10 1=1, NNCT 

A2 (2,1) =A2 (1,1) +DELTAT*A1 (1,1) 

B2 ( 2 , I ) =B2 (1,1) +DELTAT*B1 (1,1) 

A3 ( 2 , I ) =A3 (1,1) +DELTAT*0 . 50* ( A2 ( 1 , I ) +A2 (2,1)) 

10 B3 (2 , I) =B3 (1, I)+DELTAT*0. 50* (B2 (1, I)+B2 (2,1) ) 

DO 20 1=1, NNCT 
A1 (1,1) =A1 (2,1) 

A2 (1,1) =A2 (2,1) 

A3 (1,1) =A3 (2,1) 

B1 (1,1) =B1 (2,1) 

B2 (1, I)=B2 (2,1) 

20 B3 (1, I)=B3 (2, I) 

RETURN 

END 
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c 
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SUBROUTINE TBETA (NNCT, DELTAT,NSTA,TIME) 
******************************************************************* 

* THIS SUBROUTINE INTEGRATES THE MODAL ACCELERATIONS INTO MODAL * 

* VELOCITY AND DISPLACEMENT BY NEWMARK BETA METHOD * 

******************************************************************* 

IMPLICIT REAL(A-H, O-Z) 

DIMENSION STORE (21, 40) 

COMMON /ADD1/ TKXX ( 10 , 5) , TKXY ( 10 , 5) , TKXA ( 10 , 5) , TKXB( 10 , 5) , TKXZ ( 10 
1 ,5) , TCXX (10,5) , TCXY (10,5) ,TCXA(10,5) ,TCXB(10,5) ,TCXZ(10,5) 

COMMON /ADD2/ TKYX(10,5) ,TKYY(10,5) ,TKYA(10,5) ,TKYB(10,5) ,TKYZ(10 
1 ,5) , TCYX (10,5) , TCYY (10,5) ,TCYA(10,5) ,TCYB(10,5) ,TCYZ(10,5) 

COMMON /ADD3/ TKAX (10,5) , TKAY (10,5) , TKAA( 10 , 5) , TKAB( 10 , 5) , TKAZ ( 10 
1 ,5) , TCAX (10,5) , TCAY (10,5) ,TCAA(10,5) ,TCAB(10,5) ,TCAZ(10,5) 

COMMON /ADD4/ TKBX(10,5) ,TKBY(10,5) ,TKBA(10,5) ,TKBB(10,5) ,TKBZ(10 
1 ,5) , TCBX (10,5) , TCBY (10,5) ,TCBA(10,5) ,TCBB(10,5) ,TCBZ(10,5) 

COMMON /ADD5/ TKZX(10,5) ,TKZY(10,5) ,TKZA(10,5) ,TKZB(10, 5) ,TKZZ(10 
1 ,5) , TCZX ( 10 , 5 ) , TCZY (10, 5 ) ,TCZA(10,5) ,TCZB(10,5) ,TCZZ(10,5) 

COMMON /ADD6/ TOC ( 16) , TOD ( 16) , TOE ( 16) 

COMMON /BLK20/ A1 (2 , 10) , A2 (2 , 10) , A3 (2 , 10) , B1 (2 , 10) , B2 (2 , 10) , B3 (2 , 1 
10) 

COMMON /TMU1/ TMUX ( 10 , 5 ) , TMUY ( 10 , 5) , TEXTW( 100 , 5) , TDX ( 100 , 5) 

COMMON /TD1/ TDDXT (100,5) , TDDNT (100,5) , TRP ( 100 , 5) 

COMMON /TR1/ TRT (100,5) , TEM6 (100,5) , TRO (100,5) , TGGO (100,5) 

COMMON /MF1/ LTLFF (10,5) , TSFX (10,5) , TSFY (10,5) , TMFX (10,5) 

COMMON /TUI/ LTLUF ( 10 , 5 ) , TUX (10, 5) ,TUY(10,5) ,TSUX(10,5) ,TSUY(10,5) 
COMMON /SEU1/ LTLNT (10,5) , NTSRUB ( 5) , NTSEU (5) , NTFACT ( 5) , ITND (5) 
COMMON /AAB1/ KTR(5) ,TABSO(5) , AA1 (2 , 10, 5) , AA2 (2 , 10, 5) , AA3 (2 , 10, 5) 
COMMON /BBA1/ BB1 (2 , 10 , 5) , BB2 ( 2 , 10 , 5) , BB3 (2 , 10 , 5) , TA1 ( 2 , 10 , 5) 
COMMON /TKB1/ TA2 (2 , 10 , 5) , TA3 ( 2 , 10 , 5) , TKB(5 , 5) , ALPH (5 , 5) , RCC ( 5) 
COMMON /TMB1/ TMBX (10,5) , TMBY (10,5) , TWMY ( 10 , 5) , LTLBD ( 10 , 5) 

COMMON /TCM1/ TCMX ( 10 , 10 , 5) , TCMY ( 10 , 10 , 5) , TKMX ( 10 , 10 , 5) 

COMMON /TDOl/ TDOX ( 10 , 10 , 5) , TDOY ( 10 , 10 , 5) , TEOX ( 10 , 10 , 5) 

COMMON /TD/ TDDPC(10, 100, 5) ,TEMX(10, 10, 5) ,TEMY(10, 10, 5) 

COMMON /TW1/ TDMY (10,10,5) , TEEYTH (10,100,5) , TW (100,5) , TWMOD ( 50 , 5 ) 
COMMON /JS/ JST (5) 

COMMON /TOU/ TOUT ( 5 ) , FORCEZ ( 5 ) 

COMMON /SPEED/ TSPEED(5) 

COMMON /LAS/ TTK(100 , 5) , TMFY ( 10 , 5) , TKMY ( 10 , 10 , 5) , TEOY ( 10 , 10 , 5 ) , 

1 TDMX(10, 10, 5) 

COMMON /BOXOl/ OMEGS (40) , BX1 (40 , 200 , 6) , LBLBT ( 10 , 5) , NMBB, NODEB 
COMMON /BLK58/ ZF ( 10 , 5) , ZFV ( 10 , 100 , 5) 

COMMON /BOX02/OA1 (2,40) ,OA2(2,40) ,OA3(2,40) ,OB1(2,40) , 

1 OB2 (2,40) , OB3 (2,40) , JNODE(20) ,FXFXM(40) , FYFYM(20) ,FZFZM(20) 
COMMON /BOX04/OZ1 (2,20) ,OZ2(2,20) ,OZ3(2,20) ,AZ1(2,10,5) 

1 , AZ2 (2 , 10, 5) , AZ3 ( 2 , 10 , 5) ,TBRFZ(10,5) ,TOA(16) ,TOB(16) ,TOZ(16) 
COMMON /BOX08/ NPT , NPTNO (16) 

DO 100 11=1, NSTA 


- * STORE THE PREVIOUS RESULT * 
**************** 

DO 10 1=1, NNCT 
STORE (1,1) =AA1 (1,1,11) 

STORE (2,1) =BB1 (1,1,11) 

STORE (3,1) =AA2 (1,1,11) 

STORE (4,1) =BB2 (3,1,11) 

STORE (5,1) =AA3 (1,1,11) 

STORE (6,1) =BB3 (1,1,11) 

STORE (7,1) =TA1 (1,1,11) 

STORE (8,1) =TA2 (1,1,11) 
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STORE (9 , I ) =TA3 (1,1,11) 

STORE (16, I ) = AZ 1(1,1,11) 

STORE (17,1) =AZ2 (1,1,11) 

10 STORE (18,1) =AZ 3(1,1,11) 

C ********************** 

c * INTEGRATE THE ACC. INTO VEL. & DISP. * 

C ********************** 


DO 20 1=1 , NNCT 

AA2 (1,1,11) =STORE (3,1) +DELTAT*STORE (1,1) 

BB2 (1,1,11) =STORE ( 4 , I ) +DELTAT*STORE (2,1) 

AA3 (1,1,11) =STORE ( 5 , 1 ) + . 5*DELTAT* (STORE (3 , I) +AA2 (1,1,11) ) 

BB3 (1,1,11) =STORE ( 6 , 1 ) + . 5*DELTAT* (STORE (4,1) +BB2 (1,1,11) ) 

TA2 (1,1,11) =STORE (8,1) + DE LTAT * S TORE (7,1) 

TA3 (1,1,11) =STORE (9,I)+0.5* DELTAT* ( STORE (8,1) +TA2 (1,1,11) ) 

AZ2 (1,1,11) =STORE (17,1) +DELTAT*STORE (16,1) 

20 AZ3 (1,1 , II) =STORE ( 18 , I ) +0 . 5*DELTAT* (STORE (17,1) +AZ2 (1,1,11)) 

C **************************** 

C * SOLVE THE EQUATION WITH CURRENT MODAL VEL. & DISP. * 

C **************************** 

CALL TACCEL (NSTA) 

DO 25 I J=1 , NNCT 

AZ1(1, IJ, II) =TBRFZ (IJ, II) -ZF(IJ, II) **2*AZ3 ( 1 , IJ , II) 

DO 725 JJI=1 , NNCT 

AZ1(1, IJ, II) =AZ1(1, IJ, Il)+TEOY (IJ, JJI,I1) *AZ3 (1, JJI, II) 

725 CONTINUE 
25 CONTINUE 

Q ****************************** 

C * INTEGRATE THE ACC. OF ROTOR WITH NEWMARK BETA METHOD * 

C ****************************** 

DO 30 1=1, NNCT 

AA2 (1,1,11) =STORE ( 3 , I ) + . 5* DELTAT* (AA1 (1,1,11) +STORE (1,1)) 

BB2 (1,1,11) =STORE ( 4 , I ) + . 5* DELTAT* (BB1 (1,1,11) +STORE (2,1)) 

AA3 (1,1,11) =STORE (5,1) + DELTAT* STORE (3 , I) + ( . 5-BETA) *STORE (1,1) 

1 *DELTAT*DELTAT+BETA*DELTAT*DELTAT*AA1 (1, I, II) 

BB3 (1,1,11) =STORE (6,1) + DE LTAT * S TORE (4 , 1) + ( . 5-BETA) *STORE (2,1) 

1 * DE LTAT * DE LT AT+ BETA * DE LTAT * DE LTAT * BB 1 (1,1,11) 

TA2 (1,1,11) =STORE ( 8 , I ) +0 . 5* DELTAT* (TA1 (1,1,11) +STORE (7,1) ) 

TA3 (1,1,11) =STORE (9,1) +DELTAT*STORE (8 , I) + ( . 5-BETA) *STORE (7,1) 

1 * DE LTAT * DE LT AT+ BETA * DE LTAT * DE LTAT * TA 1 (1,1,11) 

AZ2 (1,1,11) =STORE ( 17 , I ) +0 . 5* DELTAT* ( AZ1 (1,1,11) +STORE (16,1) ) 

AZ3 (1, 1,11) =STORE (18,1) +DELTAT*STORE (17 , I) + ( . 5-BETA) *STORE (16,1) 
1 * DELTAT* DELTAT+BETA*DELTAT*DELTAT*AZ1 (1,1,11) 

AA3 (2,1,11) =AA3 (1,1,11) 

BB3 (2,1,11) =BB3 (1,1,11) 

TA3 (2,1,11) =TA3 (1,1,11) 

30 AZ3(2, I, I1)=AZ3 (1,1,11) 

100 CONTINUE 


C **************************** 

C * INTEGRATE THE ACC. OF BOX WITH NEWMARK BETA METHOD * 

C **************************** 


DO 12 I =1 , NMBB 
STORE ( 10 , I ) =0A1 (1,1) 
STORE (12,1) =OA2 (1,1) 
STORE (14,1) =OA3 (1,1) 
12 CONTINUE 

DO 14 1=1, NPT 
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14 


TOA(I) =0. 0 
TOB(I) =0. 0 
TOZ (I) =0 . 0 
DO 60 1=1 , NMBB 

OA2 (1,1) =STORE (12,1) +DELTAT*STORE (10,1) 

OA3 ( 1 , I) =STORE ( 14 , I) + . 5*DELTAT* (STORE (12 , I) +OA2 (1,1)) 


C ******************* 

C * SOLVE THE MODAL EQUATION OF BOX * 

C ******************* 

IJ=I 

OA1 ( 1 , IJ) =FXFXM ( IJ) -OMEGS ( I J) *OA3 ( 1 , IJ) -OA2 ( 1 , I J) 

1 *OMEGS(IJ) **0.5*0.09401 

OA2 (1,1) =STORE ( 12 , 1) + . 5*DELTAT* (OA1 ( 1 , I) +STORE (10,1) ) 

OA3 (1,1) =STORE (14,1) +DELTAT*STORE ( 12 , I) + ( . 5-BETA) *STORE (10,1) 
1 *DELTAT*DELTAT+BETA*DELTAT*DELTAT*OAl (1,1) 


OA3 (2,1) =OA3 (1,1) 

DO 60 J= 1 , NPT 
JJ= NPTNO(J) 

TOA(J)=TOA(J)+OAl (1, I) *BX1 (I, JJ, 1) 
TOB ( J) =TOB ( J) +OA1 (1,1) *BX1 (I, JJ, 2) 
60 TOZ (J) =TOZ (J) +OA1 (1, I) *BX1(I,JJ,3) 
RETURN 
END 


SUBROUTINE TINC 

C ****************************************************************** 

C * THIS SUBROUTINE TRANSFORMS THE ROTOR INITIAL CONDITIONS INTO * 

C * MODAL INITIAL CONDITIONS OF VELOCITIES AND DISPLACEMENTS * 

C ****************************************************************** 
IMPLICIT REAL(A-H,0-Z) 

DIMENSION XTH(IOO), YTH(IOO), VXTH(IOO), VYTH(IOO) 

COMMON /BLK1/ N, NB, NNLIN, NMB, NF, NU , NS, NBOW, ISTAB, IMODE , ISKU, NNCT, N 
1UFPT 

COMMON /BLK6/ BOW(IOO) ,PBOW(100) , XIDC ( 100) , YIDC ( 100) ,VXIDC(100) ,VY 
HDC(IOO) , BXA (100) , BYA ( 100) 

COMMON /BLK9/ DDPC ( 10 , 100) , EEYTH ( 10, 100) 

COMMON /BLK15/ RP( 100) , RT ( 100) 

COMMON /BLK19/ DX(100) 

COMMON /BLK20/ A1 (2 , 10) , A2 (2 , 10) , A3 (2 , 10) , B1 (2 , 10) , B2 (2 , 10) , B3 (2 , 1 
10) 

COMMON /BLK22/ W(100) 

DO 10 1=1,100 

XIDC (I) =XIDC ( I ) / 1000 . 

YIDC ( I ) =YIDC (I)/1000. 

VXIDC ( I ) =VXIDC (I) /1000. 

10 VYIDC (I) =VYIDC ( I ) /1000 . 

TC= (XIDC ( 2 ) -XIDC ( 1) ) /DX (1) 

TD= (YIDC (2) -YIDC ( 1) ) /DX (1) 

TE= (VXIDC (2) -VXIDC (1) )/DX(l) 

TF= (VYIDC (2) -VYIDC (1) )/DX(l) 

XTH ( 1 ) =ATAN ( TC ) 

YTH (1) =ATAN (TD) 

VXTH ( 1 ) =ATAN ( TE ) 

VYTH ( 1 ) =ATAN ( TF ) 

TC= (XIDC (N) -XIDC(N-l) )/DX(N-l) 

TD= (YIDC (N) -YIDC(N-l) )/DX(N-1 ) 
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TE= (VXIDC (N) -VXIDC (N-l) )/DX(N-l) 

TF= (VYIDC (N) -VYIDC(N-l) )/DX(N-l) 

YTH (N) =ATAN (TD) 

XTH ( N ) =ATAN ( TC ) 

VXTH ( N ) =ATAN ( TE ) 

VYTH (N) =ATAN (TF) 

N1=N- 1 

DO 20 1=2, N1 

TC= (XIDC ( 1+1) -XIDC(I-l) )/(DX(I-l)+DX(I) ) 

TD= ( YIDC ( 1+1) -YIDC(I-l) ) / (DX ( 1-1) +DX (I) ) 

TE= (VXIDC ( 1+1) -VXIDC ( 1-1) ) / (DX ( 1-1) +DX (I) ) 

TF= (VYIDC (1+1) -VYIDC (1-1) ) / (DX ( 1-1) +DX ( I) ) 

XTH ( I ) =ATAN ( TC ) 

YTH ( I ) =ATAN (TD) 

VXTH ( I ) =ATAN ( TE ) 

VYTH (I) =ATAN(TF) 

20 CONTINUE 

DO 30 1=1 , NNCT 
A3 (1, I)=0. 

B3 (1,1) =0 . 

A2 (1,1) =0 . 

B2 (1, I)=0. 

DO 30 J=1 , N 

A3 (1,1) =A3 ( 1 , I ) + ( DDPC ( I , J ) *W(J) *XIDC ( J) +EEYTH (I , J) *RT(J) *XTH(J) )/3 
186.4 

B3 (1, I)=B3 (1, I)+(DDPC(I, J) *W(J) *YIDC ( J) +EEYTH ( I , J) *RT(J) *YTH(J) )/3 
186.4 

A2 (1, I) =A2 (1, I) + (DDPC (I, J) *W(J) * VXIDC (J) +EEYTH ( I , J) *RT(J) *VXTH(J) ) 
1/386.4 

30 B2 (1, I)=B2 (1, I) + (DDPC (I, J) *W(J) * VYIDC ( J) +EEYTH ( I , J) *RT(J) *VYTH(J) ) 

1/386.4 
RETURN 
END 

SUBROUTINE BNF 

C ********************************************************************** 
C * THIS SUBROUTINE CALCULATES THE NONLINEAR BEARING FORCES FOR EACH * 

C * TIME STEP . THE BEARING USED ARE ASSUMED TO BE SHORT JOURNAL * 

C * BEARING 180 DEG. CAVITATED FILM OR WITH 360. DEG FLUID FILM. * 

C * THIS CAN ALSO BE USED TO APPROXIMATE STRAIGHT SEAL FORCES. * 

C ********************************************************************** 
IMPLICIT REAL(A-H, O-Z) 

REAL LEN 
REAL MFX , MFY 
REAL KXX , KYY 

COMMON /BLK1/ N , NB , NNLIN , NMB , NF , NU , NS , NBOW, ISTAB , IMODE , ISKU , NNCT , N 
1UFPT 

COMMON /BLK3/ CRT ( 10 ) , LLBD ( 10 ) , LLNB ( 5 ) , LLNMB ( 9 ) , LLSK ( 10) , LLNT ( 10) , 
1LLUF(10) , LLFF (10) , LLUT(IO) ,TCRT(10, 5) 

COMMON /BLK4 / 

1 S LNMB (9,4,4) , CLNMB (9,4,4) 

COMMON /BLK8/ MFX ( 10) , MFY ( 10) , MUX ( 10) , MUY ( 10) , MBX ( 10) , MBY ( 10) 

COMMON /BLK9/ DDPC ( 10 , 100 ) , EEYTH ( 10 , 100) 

COMMON /BLK16/ SPEED2 , ANGSP, ANGACL, FSPEED 
COMMON /BLK18/ AKK ( 10) , TAKK ( 10 , 5) 

COMMON /BLK2 0/ A1 ( 2 , 10 ) , A2 ( 2 , 10) , A3 (2 , 10) , B1 (2 , 10 ) , B2 ( 2 , 10 ) , B3 (2 , 1 
10) 

COMMON /BLK35/ WMY ( 10 ) , VIS ( 5 ) , R ( 5 ) , LEN ( 5 ) , C ( 5) , NLB ( 5 ) 

COMMON /BLK60/ SFX ( 10 ) , SFY ( 10 ) 

COMMON /ADD1/ TKXX(10,5) ,TKXY(10,5) ,TKXA(10,5) ,TKXB(10,5) ,TKXZ(10 
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1 ,5) , TCXX ( 10 , 5) , TCXY (10,5) ,TCXA(10,5) ,TCXB(10 f 5) ,TCXZ<10,5) 

COMMON /ADD2/ TKYX(10,5) ,TKYY(10,5) ,TKYA(10,5) ,TKYB(10,5) ,TKYZ(10 
1 ,5) , TCYX (10,5) , TCYY (10,5) ,TCYA(10,5) ,TCYB(10,5) ,TCYZ(10,5) 

COMMON /ADD3/ TKAX ( 10 , 5) , TKAY ( 10 , 5) , TKAA ( 10, 5) , TKAB ( 10, 5) , TKAZ ( 10 
1 ,5) , TCAX (10,5) , TCAY (10,5) ,TCAA(10,5) ,TCAB(10,5) ,TCAZ(10,5) 

COMMON /ADD4/ TKBX(10,5) ,TKBY(10,5) ,TKBA(10,5) ,TKBB(10,5) ,TKBZ(10 
1 ,5) , TCBX (10,5) , TCBY ( 10 , 5) ,TCBA(10,5) ,TCBB(10,5) ,TCBZ(10,5) 

COMMON /ADD5/ TKZX(10,5) ,TKZY(10,5) ,TKZA(10,5) ,TKZB(10,5) ,TKZZ(10 
1 ,5) , TCZX (10,5) , TCZY (10,5) ,TCZA(10,5) ,TCZB(10,5) ,TCZZ(10,5) 

DO 10 1=1 , NNCT 
MFX ( I ) =0 . 

10 MFY ( I ) =0 . 

DO 60 1=1 , NNLIN 
L=LLNB ( I ) 

X=0. 

Y=0 . 

VX=0. 

VY=0 . 

DO 20 J=1 , NNCT 
X=X+A3 ( 1 , J ) *DDPC ( J , L) 

Y=Y+B3 (1, J) *DDPC ( J , L) 

VX=VX+A2 (1, J) *DDPC ( J , L) 

VY=VY+B2 (1, J) *DDPC ( J , L) 

20 CONTINUE 
D=X*X+Y*Y 
SD=0 . 

DEU=0 . 

SD=SQRT ( D) 

U=X*VX+Y *VY 
DU=C ( I ) *SD*ANGSP 
DEU=U/DU 
EU=SD/C ( I ) 

IF (EU.LT.1.0) GOTO 25 
EU=0 . 99 

25 CONTINUE 

PHIDOT= (X*VY-Y*VX) / (ANGSP*D) 

PI=3. 14159 

TEST= (1.-2. *PHIDOT) 

SIGN=1. 

SIGN1=1. 

IF (TEST . LT . 0 . ) SIGN=-1. 

IF (DEU.LT.O.) SIGN1=— 1 . 

CS=EU*ABS (TEST) /SQRT (EU*EU*TEST**2+4 . *DEU*DEU) 

AS=SQRT ( ( 1 . +EU) / ( 1 . -EU) ) 

IF (ABS(CS) .LT. 0.0001) GO TO 30 
U=SQRT ( ( 1 . -CS ) / ( 1 . +CS ) ) 

GO TO 40 
30 U=l. 

40 CONTINUE 

TI1=SIGN*4 . *EU*CS**3/ ( ( 1 . -EU*EU*CS*CS) **2) 

Cl= ( 1 . -EU*EU) 

C2= (3.-5. *AS*AS) 

C3= (5.-3. *AS*AS) 

TA=ATAN (U* ( AS*AS-1 . ) / (AS* ( 1 . +U*U) ) ) 

C4= ( 1 . +2 . *EU*EU) 

CON=PI*C4/ (Cl**2 .5) 

CON2= (C2 *U*U+C3*AS*AS ) / (U*U+AS*AS) **2+ (C2+C3*AS*AS*U*U) / ( 1 . +AS*AS* 
1U*U) **2 

TI2=C0N+SIGN1* (2 . *C4*TA/ (Cl**2 . 5) -U*CON2/ (Cl**2) ) 
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C0N=2 . /Cl**l . 5 

TI3=CON* (PI/2 . +SIGN1* (TA-AS*U* (U*U-AS*AS)/ (U*U+AS*AS) **2-AS*U*(l.- 
1AS*AS*U*U) / ( 1 . +AS*AS*U*U ) **2) ) 

SOM=VIS ( I ) *ANGSP*2 . *R ( I ) *LEN(I) **3/(8. *C(I) *C(I) ) 

F1=S0M* (EU*TEST*TI 1+2 . *DEU*TI2 ) 

F2=S0M* (EU*TEST*TI3+2 . *DEU*TI1) 

FX=- (F1*X+F2*Y) /SD 

FY=(F2*X-F1*Y)/SD 

ID=NLB(I) 

SFX (I) =FX 
SFY (I) =FY 

FX=FX+TKXX ( ID, 1) *X+AKK(ID) *X 
FY=FY+TKYY (ID, 1) *Y+AKK (ID) *Y 
DO 50 K=1 , NNCT 
MFX (K) =MFX (K) +FX*DDPC (K, L) 

MFY (K) =MFY (K) +FY*DDPC (K, L) 

CONTINUE 

RETURN 

END 

SUBROUTINE TOR ( N , NM , NE , NT YPE ) 

*********************************************************** 

* THIS PROGRAM FOR CALCULATE Z-DIRECTION EIGEN PROBLEM * 
*********************************************************** 

DIMENSION FFR(IO) ,FV(100,10) ,TV(100,10) ,AT(5,5) ,WF(100,100) 

COMMON /ADD1/ TKXX ( 10 , 5 ) , TKXY ( 10 , 5) , TKXA ( 10 , 5) , TKXB ( 10 , 5) , TKXZ ( 10 
1 ,5) , TCXX (10,5) , TCXY (10,5) ,TCXA(10,5) ,TCXB(10,5) ,TCXZ(10,5) 

COMMON /ADD2/ TKYX(10, 5) ,TKYY(10, 5) ,TKYA(10, 5) ,TKYB(10, 5) ,TKYZ (10 
1 ,5) , TCYX (10,5) , TCYY ( 10 , 5) ,TCYA(10,5) ,TCYB(10,5) ,TCYZ(10,5) 

COMMON /ADD3/ TKAX ( 10 , 5) , TKAY ( 10 , 5) , TKAA ( 10 , 5) , TKAB ( 10 , 5) , TKAZ ( 10 
1 ,5) , TCAX (10,5) , TCAY ( 10 , 5) ,TCAA(10,5) ,TCAB(10,5) ,TCAZ(10, 5) 

COMMON /ADD4/ TKBX(10,5) ,TKBY(10,5) ,TKBA(10,5) ,TKBB(10,5) ,TKBZ(10 
1 ,5) , TCBX (10,5) , TCBY ( 10 , 5) ,TCBA(10,5) ,TCBB(10,5) ,TCBZ(10,5) 

COMMON /ADD5/ TKZX(10,5) ,TKZY(10,5) ,TKZA(10,5) ,TKZB(10,5) ,TKZZ(10 
1 ,5) , TCZX (10,5) , TCZY (10,5) ,TCZA(10,5) ,TCZB(10,5) ,TCZZ(10,5) 

COMMON /BLK51/ GJ ( 100) , WJ ( 100 ) 

COMMON /BLK52/ EXTW(IOO) ,DX(100) ,DDXT(100) ,DDINT(100) ,RO(100) ,GGO 
1 (100) 

COMMON /BLK54/ FR ( 10 , 5) , FFV ( 10 , 100 , 5) 

COMMON /BLK58/ ZF ( 10 , 5) , ZFV ( 10 , 100 , 5) 

COMMON /BLK56/ SP1,SP2,SP3 
COMMON /BLK59/ TK ( 100) , EEO ( 100) 

PI=3. 1415926 
IF (NTYPE.EQ.l) THEN 
DO 10 1=1, N 

GGO ( I ) =GGO ( I ) *10000000.0 

GJ (I) =32 . 0*DX (I)/ (PI*GGO (I) * ( DDXT ( I ) **4-DDINT(I) **4) ) 

WJ ( I ) —PI *RO ( I ) *DX ( I ) * ( DDXT ( I ) **4-DDINT(I) **4) / 32.0/386.4 

* +EXTW ( I ) / 3 8 6 . 4 
CONTINUE 

ELSE 

DO 40 1=1 , N 
TK ( I ) =0 . 0 

EEO ( I ) =EEO ( I ) *1000000.0 

GJ(I)= 4 . 0*DX ( I ) / ( PI*EEO ( I ) * (DDXT (I) **2-DDINT(I) **2) ) 

WJ ( I ) =PI *RO ( I ) *DX ( I ) * ( DDXT ( I ) * *2 -DDINT ( I ) **2) / 4.0/386.4 

* +EXTW (IJ/386.4 
CONTINUE 

ENDIF 


MCY=0 
ST=20 . 0 
AOl=0 . 0 

200 A01=A01+ST 

A02=A01+ST 
CALL CR (N, AOl , B1 ) 

CALL CR (N, A02 , B2 ) 

IF ( (B1*B2 ) . LE .0.0) GOTO 30 
GO TO 200 
30 MCY=MCY+1 

IF(MCY.GT.NM) GOTO 60 

A1=A01 

A2=A02 

100 IF (ABS (A1-A2 ) . LT .0.1) GOTO 50 
AAl=Al+0 .618* (A2-A1) 

CALL CR(N, AA1 , BB) 

IF ( (B1*BB) .LE.0.0) THEN 

A2=AA1 

B2=BB 

ELSE 

A1=AA1 

B1=BB 

ENDIF 

GOTO 100 

50 FR (MCY , NE) =0 . 5* (A1+A2 ) 

IF (NTYPE.GT. 1) ZF(MCY,NE) =FR(MCY,NE) 

FFR ( MCY ) =FR (MCY , NE ) / 2 . 0/ PI 
GOTO 200 
60 CONTINUE 
N1=N+1 

DO 110 MM=1 , NM 
FV ( 1 , MM) =1.0 

TV ( 1 , MM) =-WJ ( 1 ) *FR(MM,NE) **2 
DO 110 JJ=2,N 

TV(JJ,MM) =TV( JJ-1 , MM) * ( 1 . 0+ (TK ( JJ) -WJ ( JJ) *FR(MM, NE) **2 ) *GJ ( JJ) ) 
* +FV (JJ-1 , MM) * (TK ( JJ) -WJ(JJ) *FR(MM,NE) **2) 

FV ( JJ , MM) =TV (JJ-1 , MM) *GJ(JJ) +FV(JJ-1,MM) 

110 CONTINUE 

DO 80 1=1 , NM 
C0=0 . 0 
DO 70 J=1 , N 

70 CO=CO+FV ( J , I ) * * 2 * WJ ( J ) 

DO 80 K=1 , N 

FFV (I , K, NE) =FV (K, I ) /SQRT (CO) 

IF (NTYPE.NE.l) ZFV ( I , K, NE) =FFV ( I , K, NE) 

80 CONTINUE 

DO 23 1=1, N 
DO 23 J=1 , NM 

23 WF ( I , J) =WJ ( I ) *FFV ( J , I , NE) 

DO 27 1=1, NM 
DO 27 J= 1 , NM 
AT (I , J) =0 . 0 
DO 27 K=1 , N 

27 AT ( I , J ) =AT ( I , J ) +WF ( K , J ) *FFV(I,K,NE) 

WRITE (6,1105) ( (AT (I , J) ,J=1,NM) ,I=1,NM) 

1105 FORMAT ( 3 (/2X, 3F16 . 8 ) ) 

IF (NTYPE.EQ.l) THEN 
WRITE(6, 1101) NE 
DO 150 1=1, NM 

WRITE(6, 1102) I, FR ( I , NE) ,FFR(I) 
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WRITE (6, 1103) 

DO 150 J=1,N 

150 WRITE(6, 1104) J, FV(J,I), FFV(I,J,NE) , TV(J,I) 

ELSE 

WRITE(6, 2101) NE 

DO 250 1=1, NM 

WRITE(6, 2102) I, ZF(I,NE) 

WRITE(6, 2103) 

DO 250 J=1 , N 

250 WRITE (6, 1104) J, FV(J,I), ZFV(I,J,NE) , TV(J,I) 

ENDIF 

1109 FORMAT (2X, 15, 2F13 . 5) 

2109 FORMAT ( 2X, 15 , F13 . 5 , 2E15 . 8 ) 

1101 FORMAT ('**** TORSION FREQUENCY AND ORTHONOMAL MODE **** NE=',I2) 

1102 FORMAT (3X, '1=' , 13 , 30X, ' FREQUENCY= ' , 2F10 . 3 ) 

1103 FORMAT ( 2 X , ' J= ' , 14X , 7 FV ( J , I ) =' , 12X, 'FFV( J, I) ' , 8X , 'TV=' ) 

1104 FORMAT (2X,I3,8X,G14.6,8X,F12.6,6X,G12.5) 

2101 FORMAT ( '** Z-DIRECTION FREQUENCY AND ORTHONOMAL MODE ** NE=',I2) 

2102 FORMAT(3X, '1=' , 13 , 30X, 'FREQUENCY^ ,F10. 3) 

2103 FORMAT (2X, ' J=' , 14X, 'ZV(J, I) = ' , 12X, 'ZFV(J, I) ' , 8X, 'FZ=' ) 

666 RETURN 

END 

SUBROUTINE CR(N,OM,A) 

C ******************************************************************** 
C * THIS IS TO SET BOUNDARY CONDITIONS FOR MATRIX TRANSFORM METHOD * 
C ******************************************************************** 
IMPLICIT REAL ( A-H , O-Z ) 

DIMENSION D(2,2),B(2,2),C(2,2) 

COMMON /BLK51/ GJ ( 100) , WJ ( 100) 

COMMON /BLK59/ TK ( 100) , E ( 100 ) 

C (2 , 2 ) =1 . 0 
B ( 1 , 1) =1 . 0 
B ( 1 , 2 ) =0 . 0 
B(2 , 1) =0 . 0 
B (2 , 2 ) =1 . 0 
DO 20 1=1, N 

C(l, 1)=1.0+(TK(I) -WJ(I) *OM* *2 ) *GJ ( I ) 

C ( 1 , 2 ) =TK ( I ) -WJ (I) *OM**2 
C ( 2 , 1 ) =1 . 0*GJ ( I ) 

D ( 1 , 1 ) =C (1, 1) *B(1, 1) +C (1,2) *B(2, 1) 

D ( 1 , 2 ) =C (1, 1) *B(1,2) +C (1,2) *B ( 2 , 2 ) 

D(2,1)=C(2,1)*B(1,1)+C(2,2)*B(2, 1) 

D(2 , 2 ) =C (2 ,1)*B(1,2) +C (2,2) *B (2,2) 

B ( 1 , 1) =D( 1,1) 

B ( 1 , 2 ) =D (1,2) 

B(2 , 1) =D(2 , 1) 

B ( 2 , 2 ) =D (2,2) 

20 CONTINUE 

IK=2 

C FREE FIXED 

IF(IK.EQ.l) A=B (2,2) 

C FREE FREE 

IF ( IK. EQ . 2 ) A=B (1,2) 

C FIXED FIXED 

IF ( IK. EQ . 3 ) A=B (2,1) 

C FIXED FREE 

IF (IK. EQ . 4 ) A=B (1,1) 

RETURN 

END 
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SUBROUTINE STI FF ( KI , NP , XG , XMAX , XI , YK) 

C *********************************************** 

C * THIS SUBROUTINE CALCULATES GEAR STIFFNESS * 

C *********************************************** 

IMPLICIT REAL(A-H,0-Z) 

COMMON /K123/ X (4 , 100) , Y (4 , 100) 

3 IF(X1.LT. 360.0) GO TO 5 
Xl=Xl-360 . 0 
GO TO 3 

5 IF(Xl.GE.O.O) GO TO 10 
Xl=Xl+360. 0 
GO TO 5 

10 IF (XI. LE. XMAX) GO TO 20 
X1=X1-XG 
GO TO 10 
20 YK=0 . 0 

IF (XI . LT . X (KI , 1) ) GO TO 80 
IF (XI . GT. X (KI , NP) ) GO TO 90 
DO 50 1=2, NP 

IF ( (XI . GE . X (KI , (1-1) ) ) .AND. (XI . LT. X (KI , I) ) ) THEN 

YK= ( ( Y ( KI , I ) - Y ( KI , (1-1) ) ) / ( X ( KI , I ) -X ( KI , (1-1) ) ) ) * (X1-X(KI, (1-1) ) ) 
* +Y (KI , (1-1) ) 

GO TO 60 
ELSE 

CONTINUE 

ENDIF 

50 CONTINUE 
80 YK= Y ( KI , 1 ) 

GO TO 60 
90 YK=Y (KI , NP) 

60 CONTINUE 
RETURN 
END 
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APPENDIX D 

(SAMPLE DATA INPUT FILE) 
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GEARBOX VIBRATION TRANSIENT ANALYSIS WITH 
TWO BALL BEARINGS PER ROTORS 

THE MODAL SHAPES ARE CALCULATED FROM NASTRAN 
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GEARBOX VIBRATION TRANSIENT ANALYSIS 
TWO BALL BEARINGS PER ROTOR 

THE MODAL SHAPES ARE CALCULATED FROM NASTRAN 
5 132 6 

115 21 

77 19 

10000. 10000. 

10000. 10000. 

1 

22 

EIGENVALUE = 2.534798E+08 (FREQ = 2.53391E+03 HZ) 

1 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 

2 3 . 448560E-02 8.036783E-01 -2 . 037600E-02 6.051830E-01 1.011504E-01 

3 —9 . 05778 4E-02 1.313704E+00 -9 . 678650E-02 -2 . 226727E+00 2.114075E-01 

4 8 . 591101E-03 -1 . 292542E+00 -5 . 963 3 18E-02 -8 . 058454E-01 0 . 000000e+00 

5 6 . 182482E— 01 9.871943E-01 9.928733E-02 0.000000e+00 -1 . 354058E-02 

6 8 . 015627E— 02 7.883143E-01 5.760546E-02 3.560397E-02 -9 . 2 11429E-01 

7 1. 072060E-01 1.440649E+00 -2 . 722757E+00 9.987959E-01 -1 . 108560E+00 

8 2 . 268902E-01 1.184208E+00 3.067899E-02 0.000000e+00 -1. 718315E-01 

9 2 . 268900E-01 1.184208E+00 -3 . 067893E-02 0.000000e+00 1.718317E-01 

10 3 . 958876E-01 1.115078E+00 3.924147E-02 0.000000e+00 9.989733E-02 

11 5 . 532086E-02 1.061603E+00 -9 . 897880E-03 7.403004E-02 -1 . 024205E-02 

12 3 . 696863E-02 1.848590E+00 -3 . 54524 1E+00 1.757919E+00 -9 . 336358E-02 

13 3.711739E-02 -1 . 924 138E+00 -2 . 060046E-02 -1 . 086465E-01 0.000000e+00 

14 -4 . 449886E-02 1.833056E+00 -1 . 566558E-01 -2 . 526589E+00 1.664701E-01 

15 -3 . 394766E-04 8.591717E-02 -1 . 033443E-01 4.386343E-01 0.000000e+00 

16 1 . 356463E-02 1.535020E+00 -3 . 529084E-02 7.012681E-01 0.000000e+00 

17 -3 . 066798E-02 1.179114E+00 7.066858E-02 0.000000e+00 -1 . 112198E-01 

18 5 . 649020E-02 1.218520E+00 5.441920E-02 3.714950E-01 4.565944E-01 

19 8 . 215582E-02 1.615184E+00 1.918431E+00 1.545835E+00 1.075146E+00 

20 3 . 431828E-02 1.916783E+00 3.703643E+00 1.700075E+00 5.140786E-01 

21 -3 . 431851E-02 1.916783E+00 3.703643E+00 1.700074E+00 -5 . 140787E-01 

22 3 . 958879E-01 1.115078E+00 -3 . 924141E-02 0.000000e+00 -9 . 989762E-02 

23 -9. 176900E-01 1.313436E+00 5.731493E-03 0.000000e+00 1.565854E-01 

24 —3 . 869911E-01 1.242608E+00 6.925583E-03 0.000000e+00 -1 . 798946E-01 

25 6 . 182488E-01 9.871943E-01 -9 . 928727E-02 0.000000e+00 1.354064E-02 

26 -3 . 869914E-01 1.242608E+00 -6 . 925531E-03 0.000000e+00 1.798949E-01 

27 -3 . 06 68 2 4 E— 02 1.179114E+00 -7 . 066852E-02 0.000000e+00 1.112198E-01 

28 -9. 176906E-01 1.313436E+00 -5 . 73 1449E-03 0.000000e+00 -1 . 565856E-01 

29 5 . 532086E-02 1.061603E+00 9.897918E-03 -7 . 402998E-02 1.024207E-02 

30 — 3.696881E-02 1.848590E+00 -3 . 54 52 39E+00 1 . 757919E+00 9.336501E-02 
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31 3 . 711740E— 02 

32 4 . 449878E-02 

33 1 . 356463E-02 

34 3 . 393567E-04 

35 — 1.356476E-02 

36 — 1.356477E-02 

37 4 . 079561E-02 

38 5 . 849652E-02 

39 2 . 569450E-02 

40 — 1 . 07 2 0 62 E- 01 

41 —2 . 569476E-02 

42 -8.215606E-02 

43 -5.849678E-02 

44 1 . 841546E-01 

45 3 . 448561E-02 

46 7 . 742947E-02 

47 0. 000000e+00 

48 2 . 098801E— 02 

49 8 . 015627E-02 

50 2 . 098801E-02 

51 5 . 649020E-02 

52 7.742947E-02 

53 4.079561E— 02 

54 1 . 84 154 6E-01 

55 8 . 591112E-03 

56 9.057778E— 02 

57 -3.394727E-04 

58 -8.591216E-03 

59 3 . 393563E-04 

60 -3.711753E— 02 

61 -3 . 711753E-02 

62 -8.591224E-03 

63 1 . 567899E-01 

64 0 . 000000e+00 

65 6 . 237902E-02 

66 -8.015639E-02 

67 -6 . 237932E-02 

68 -5.649043E— 02 

69 — 1.567902E-01 

70 -4.079584E— 02 

71 — 1.841549E-01 

72 6 . 272137E-02 

73 — 9.057784E-02 

74 1 . 826673E-02 

75 1 . 072060E-01 

76 1 . 826673E-02 

77 8 . 215582E-02 

78 6 . 272137E-02 

79 5 . 849652E-02 

80 1.567899E— 01 

81 -4.449886E— 02 

82 — 3.448569E-02 

83 4 . 449878E-02 

84 — 5.532101E— 02 

85 9.057778E— 02 

86 -5.532101E-02 

87 -3.448570E-02 

88 0.000000e+00 

89 2 . 529481E-02 

90 -6. 182489E-01 


-1 . 924138E+00 
1 . 833056E+00 
1 . 535020E+00 
8 . 591628E-02 
1. 535018E+00 
1 . 535018E+00 
1 . 43 3638E+00 
1 . 776446E+00 
2 . 044 185E+00 
1.440649E+00 
2 . 044 185E+00 
1 . 615184E+00 
1 . 776445E+00 
1. 508387E+00 
8 . 036783E-01 
1. 393884E+00 
0. 000000e+00 
1 . 257155E+00 
7 . 883143E-01 
1 . 257155E+00 
1 . 218520E+00 
1. 393884E+00 
1 . 433638E+00 
1. 508387E+00 
-1. 292543E+00 
1. 313703E+00 
8 . 591723E-02 
-1. 292542E+00 
8. 591628E-02 
-1 . 924 139E+00 
-1 . 924 139E+00 
-1. 292542E+00 
1 . 891665E+00 
0. 000000e+00 
2. 188473E+00 
7 . 883143E-01 
2. 188473E+00 
1 . 218521E+00 
1. 891665E+00 
1 . 4 3 3638E+00 
1 . 508387E+00 
5 . 11638 1E+00 
1 . 313704E+00 
-4 . 585258E+00 
1. 440649E+00 
-4 . 585258E+00 
1. 615184E+00 
5. 116379E+00 
1 . 776445E+00 
1 . 891665E+00 
1 . 83 3056E+00 
8 . 036783E-01 
1 . 833056E+00 
1 . 061603E+00 
1. 313703E+00 
1. 061603E+00 
8.036783E-01 
0. 000000e+00 
1 . 006064E+01 
9 . 871943E-01 


2.060049E-02 
-1. 566558E-01 
3 . 529087E-02 
-1. 033443E-01 
-3 . 529084E— 02 
3 . 529086E-02 
-1 . 837622E— 02 
9 . 177673E— 02 
-1. 037416E+00 
— 2 . 722754E+00 
-1 . 03 7417E+00 
1 . 918431E+00 
9. 177393E-02 
-1 . 028981E— 01 
2 . 037602E-02 
—7 . 5 15 3 3 5E— 02 
0. 000000e+00 
-2 . 725329E-02 
-5 . 760538E-02 
2 . 725333E-02 
-5.4 4 19 12E— 02 
7 . 515341E— 02 
1 . 837626E— 02 
1. 028982E-01 
5 . 963 3 2 IE-02 
-9.678644E-02 
1 . 033443E— 01 
-5.963314E-02 
1 . 033443E-01 
-2 . 060045E-02 
2 . 060048E— 02 
5 . 963318E-02 
-3 . 028729E-02 
0. 000000e+00 
-2.298496E-02 
5 . 760550E-02 
-2.298500E-02 
5.44 1916E-02 
-3 . 028736E-02 
-1.837627E-02 
-1. 028981E-01 
-1.614437E— 02 
9 . 678656E-02 
-4 . 99 68 7 0E— 03 
2 . 722758E+00 
4 . 9969 18E-03 
-1. 918431E+00 
1. 614441E-02 
-9. 177732E— 02 
3 . 028733E— 02 
1 . 566559E— 01 
-2 . 037600E-02 
1. 566558E-01 
-9.897880E-03 
9 . 678650E-02 
9 . 897910E-03 
2 . 037602E-02 
0. 000000e+00 
-6. 337638E-04 
9 . 928733E-02 


1 . 086464E-01 
-2 . 526589E+00 
— 7.012681E— 01 
4 . 386334E-01 
7 . 012675E-01 
—7 . 012675E-01 
-8.193132E-01 
-2.362490E+00 
-3.966680E+00 
9 . 987965E-01 
— 3 . 966680E+00 
1 . 545834E+00 
—2 . 362490E+00 
9 . 574949E— 01 
-6 . 05183 IE-01 
4 . 529952E-02 
0 . 000000e+00 
-1. 114506E+00 
-3 . 560395E-02 
1. 114506E+00 
-3.714949E— 01 
— 4.529952E-02 
8 . 193132E-01 
-9.574949E-01 
8 . 058454E-01 
-2 . 226727E+00 
— 4.386343E— 01 
-8.058460E— 01 
-4.386334E— 01 
-1.086467E-01 
1 . 086466E-01 
8 . 058454E-01 
2 . 921868E+00 
0. 000000e+00 
5 . 778226E+00 
3 . 560406E— 02 
5.778226E+00 
3 . 714946E-01 
2 . 921870E+00 
-8. 193126E-01 
9. 574943E-01 
— 2 . 2 5 54 2 3 E+ 00 
2 . 226727E+00 
-5 . 363324E+00 
-9.987959E-01 
5. 363322E+00 
—1 . 545836E+00 
2 . 255423E+00 
2. 362490E+00 
-2 . 921867E+00 
2 . 526589E+00 
6 . 051829E-01 
2.526589E+00 
7 . 402998E-02 
2 . 226727E+00 
-7.402992E-02 
-6. 051829E-01 
0. 000000e+00 
—2.35457 1E+00 
0. 000000e+00 


0.000000e+00 
-1.664702E-01 
0 . 000000e+00 
0.000000e+00 
0 . 000000e+00 
0 . 000000e+00 
4 . 576401E-01 
-3 . 333355E-01 
-3.544267E-01 
1. 108560E+00 
3 . 544254E-01 
—1 . 075146E+00 
3 . 333362E-01 
1 . 810223E-01 
-1 . 011504E-01 
-1.237930E-02 
0. 000000e+00 
-1 . 718097E-01 
9 . 211435E-01 
1 . 718097E-01 
-4.565944E-01 
1 . 237932E-02 
-4 . 576405E--01 
-1.810223E-01 
0. 000000e+00 
— 2.114072E-0X 
0 . 000000e+00 
0. 000000e+00 
0. 000000e+00 
0. 000000e+00 
0. 000000e+00 
0 . 000000e+00 
1. 566738E-01 
0. 000000e+00 
8 . 495444E-02 
9 . 211422E-01 
-8.495438E-02 
-4.565946E-01 
-1 . 566737E-01 
-4 . 576393E-01 
-1.810223E-01 
0 . 000000e+00 
-2 . 114075E-01 
0. 000000e+00 
1. 108560E+00 
0. 000000e+00 
-1. 075146E+00 
0. 000000e+00 
3 . 333356E-01 
-1. 566738E-01 
-1.664701E-01 
-1. 011503E-01 
1. 664703E-01 
1. 024200E-02 
2 . 114071E-01 
-1. 024202E-02 
1 . 011503E-01 
0. 000000e+00 
0. OOOOOOe+OO 
1 . 354124E-02 
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91 —2 . 529510E-02 1.006064E+01 -6 . 337864E-04 -2 . 354572E+00 0.000000e+00 

92 3 . 066812E— 02 1.179114E+00 7.066858E-02 0.000000e+00 1.112196E-01 

93 -6.272167E-02 5.116381E+00 -1 . 614442E-02 -2 . 255423E+00 0.000000e+0) 

94 9.17 6900E-01 1.313436E+00 5.731463E-03 0.000000e+00 -1 . 565861E-0 L 

95 -7.742977E-02 1.393885E+00 -7 . 515341E-02 4.529933E-02 1.237920E-02 

96 8 . 211669E-03 -4 . 628751E+00 1.786326E-03 -8 . 116509E+00 0.000000e+00 

97 3 . 696863E-02 1.848590E+00 3.545241E+00 -1 . 757919E+00 9.336299E-02 

98 8 . 211669E-03 -4 . 628751E+00 -1 . 786270E-03 8.116509E+00 0.000000e+00 

99 3 . 431828E-02 1.916783E+00 -3 . 703643E+00 -1 . 700075E+00 -5 . 140788E-01 

100 2 . 529481E-02 1.006064E+01 6.338200E-04 2.354571E+00 0 . 000000e+00 

101 2 . 569450E-02 2.044184E+00 1.037416E+00 3.966680E+00 3.544270E-0L 

102 6 . 237902E-02 2.188473E+00 2.298502E-02 -5 . 778226E+00 -8 . 495444E-02 

103 -3 . 69688 IE- 02 1.848590E+00 3.545239E+00 -1. 757919E+00 -9 . 336448E-02 

104 —3 . 958892E-01 1.115078E+00 3.924147E-02 0.000000e+00 -9 . 989703E-02 

105 — 1. 072 0 62 E- 01 1.440649E+00 2.722754E+00 -9 . 987959E-01 -1 . 108560E+00 

106 -3 . 958895E-01 1.115078E+00 -3 . 924143E-02 0.000000e+00 9.989733E-02 

107 —8 . 015639E-02 7.883143E-01 -5 . 760542E-02 -3 . 560405E-02 -9.211429E-0 

108 -6. 182494E-01 9.871943E-01 -9 . 928733E-02 0.000000e+00 -1 . 354130E-0-! 

109 -8.211952E-03 -4 . 628753E+00 1.786317E-03 -8 . 116509E+00 0.000000e+00 

110 — 2.268897E-01 1.184208E+00 3.067898E-02 0.000000e+00 1.718314E-01 

111 -1 . 8 2 67 0 2 E— 02 -4 . 585258E+00 -4 . 996892E-03 -5 . 363324E+00 0.000000e+00 

112 3 . 869923E-01 1.242608E+00 6.925564E-03 0.000000e+00 1.798941E-01 

113 -2 . 098829E-02 1.257155E+00 -2 . 72533 IE-02 -1 . 114506E+00 1.718097E-01 

114 -8 . 211944E-03 -4 . 628753E+00 -1 . 786266E-03 8.116509E+00 0.000000e+00 

115 — 3.431850E— 02 1.916783E+00 -3 . 703643E+00 -1 . 700073E+00 5.140789E-01 

116 -2 . 529509E-02 1.006064E+01 6.338370E-04 2.354572E+00 0.000000e+00 

117 -2 . 569475E-02 2.044184E+00 1.037417E+00 3.966680E+00 -3 . 544257E-0 

118 -6. 237932E-02 2.188473E+00 2.298505E-02 -5 . 778226E+00 8.495438E-02 

119 -8 . 215606E-02 1.615184E+00 -1 . 918431E+00 -1 . 545834E+00 1.075146E+00 

120 -2 . 268895E-01 1.184208E+00 -3 . 067894E-02 0.000000e+00 -1 . 718316E-0 L 

121 -5.649043E-02 1.218520E+00 -5 . 441912E-02 -3 . 714946E-01 4.565946E-0L 

122 3 . 066837E-02 1.179114E+00 -7 . 066852E-02 0.000000e+00 -1 . 112195E-0 L 

123 — 1 . 826701E-02 -4 . 585258E+00 4.996918E-03 5.363323E+00 0.000000e+00 

124 3 . 869926E-01 1.242608E+00 -6 . 925538E-03 0.000000e+00 -1 . 798944E- 0 L 


125 

— 2.098828E-02 

1 . 2 57 155E+00 

2 . 7 2 53 3 2E-02 

1. 114506E+00 

-1.718097E-01 

126 

-6 . 272161E-02 

5. 116379E+00 

1 . 614 444E-02 

2.255423E+00 

0. 000000e+00 

127 

-5 . 849674E-02 

1 . 776445E+00 

-9. 177446E-02 

2 * 362490E+00 

—3 . 333364E-01 

128 

-1 . 567902E-01 

1 . 89 1665E+00 

3.028738E-02 

-2.921869E+00 

1. 566737E-01 

129 

—4 . 079584E-02 

1 . 4 33 638E+00 

1 . 8 37628E-02 

8 . 193 126E-01 

4 . 576397E-01 

130 

9. 176906E-01 

1 . 3 134 36E+00 

-5.731445E-03 

0. 000000e+00 

1. 565862E-01 

131 

-7 . 742971E-02 

1 * 393884E+00 

7 . 51534 IE-02 

-4.529933E-02 

-1.237923E-02 

132 

-1 . 841549E-01 
EIGENVALUE = 5 . 

1 . 508387E+00 1.028982E-01 -9 . 574943E-01 

525934E+08 (FREQ = 3.74130E+03 HZ) 

1.810223E-01 

1 

0 . 000000e+00 

0 . 000000e+00 

o.ooooooe+oo 

0 . 000000e+00 

0. 000000e+00 

2 

—9 . 0174 3 2E— 02 

3 . 794850E-01 

-1. 710561E-02 

-3 . 7 2 002 OE- 01 

9 . 568367E-03 

3 

2 . 273129E-02 

-3.766249E-02 

2 . 583054E-01 

“9 . 495828E-01 

-2.748883E-01 

4 

-8. 189893E-02 

-5. 354028E+00 

1. 579300E-01 

-6.754655E-01 

o.ooooooe+oo 

5 

3 . 970646E-01 

4 . 675810E-01 

4 . 292021E— 02 

0 . 000000e+00 

-6.974553E-01 

6 

-7 . 410407E-02 

2 . 617511E-01 

3 . 004587E-02 

1.085124E-01 

4 . 095011E-01 

7 

-4 . 307524E-02 

1. 643141E-01 

3 . 107 096E+00 

-4.490227E-01 

3 . 093 104E+00 

8 

—2 . 202222E+00 

6. 436667E-01 

1 . 703527E-02 

0.000000e+00 

1 . 850501E+00 

9 

-2 . 202222E+00 

6 . 436667E-01 

-1 . 703527E-02 

0 . 000000e+00 

-1 . 850501E+00 

10 

1 . 291305E+00 

6. 182576E-01 

1 . 876486E-02 

0 . 000000e+00 

-8.219761E-02 

11 

-1. 110045E-01 

6 . 2 51503E-01 

—8 . 757446E-03 

1 • 796952E+00 

5 . 086491E-02 

12 

—1 . 736602E-02 

6 . 514788E-02 

6 . 862464E+00 

-2 . 427180E+00 

1. 173689E+00 

13 

-1 . 162736E-01 

1 . 550402E+00 

5 . 254602E-02 

5 . 102044E+00 

0 . 000000e+00 

14 

1 . 368123E-02 

-2.015609E-01 

4 . 928859E-01 

-4.920493E-01 

— 4.003682E— 01 

15 

-3 . 399730E-02 

-8. 324932E+00 

2 . 989873E-01 

-4,018692E-01 

0. 000000e+00 

16 

-4.934616E-02 

3 . 889892E+00 

9.955978E-02 

8 . 324385E+00 

0. 000000e+00 

17 

1 . 343695E+00 

5. 557591E-01 

3 . 7 3992 5E-02 

0, 000000e+00 

7 . 925306E-01 
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18 -5 . 877895E-02 

19 -5. 334870E-02 

20 —2 . 219216E— 02 

21 2 . 219188E— 02 

22 1 . 291305E+00 

23 1 . 319715E+00 

24 5 . 902687E-01 

25 3.970646E-01 

26 5 . 902687E-01 

27 1. 343695E+00 

28 1. 319715E+00 

29 -1. 110045E-01 

30 1 . 736566E— 02 

31 -1. 162736E-01 

32 — 1 . 3 68 16 IE— 02 

33 —4 . 934616E-02 

34 3 . 399693E-02 

35 4 . 934578E— 02 

36 4 . 934578E-02 

37 -5 . 116955E-02 

38 -4 . 840098E-02 

39 -1 . 936520E-02 

40 4 . 307487E-02 

41 1 . 936511E-02 

42 5 . 334839E-02 

43 4 . 840085E-02 

44 -2 . 344701E-02 

45 -9.017432E-02 

46 -9.843963E-02 

47 0.000000e+00 

48 — 1.333230E-01 

49 -7.410407E-02 

50 -1 . 333230E-01 

51 -5 . 877895E-02 

52 -9.843963E-02 

53 -5. 116955E-02 

54 -2 . 34470 IE-02 

55 —8 . 189893E-02 

56 —2 . 273155E-02 

57 — 3.399730E— 02 

58 8.189863E-02 

59 3 . 399693E— 02 

60 1. 162732E-01 

61 1 . 162732E-01 

62 8 . 189863E-02 

63 -1. 363751E-02 

64 0.000000e+00 

65 -3.658583E-03 

66 7 . 410365E-02 

67 3 . 658720E-03 

68 5 . 877860E-02 

69 1 . 363764E— 02 

70 5 . 116946E-02 

71 2 . 344714E-02 

72 -9. 362507E-02 

73 2 . 273129E— 02 

74 — 1.221659E-01 

75 -4 . 307524E-02 

76 -1.221659E-01 

77 -5.334870E-02 


4 . 296376E-01 
3 . 586955E-01 
3 . 074746E-01 
3 . 074747E-01 
6 . 182576E-01 
6 . 236915E-01 
6 . 760237E-01 
4 . 675810E-01 
6 . 760237E-01 
5. 557591E-01 
6 . 236915E-01 
6 . 251503E-01 
6. 514800E-02 
1. 550402E+00 
— 2.015607E-01 
3 . 889892E+00 
-8 . 32493 1E+ 00 
3 . 889892E+00 
3 . 889892E+00 
5. 296052E-01 
5. 159767E-01 
5 . 096145E-01 
1 . 643143E-01 
5 . 096146E-01 
3 . 586957E-01 
5. 159769E-01 
5. 683835E-01 
3 . 794850E-01 
6 . 558044E— 01 
0 . 000000e+00 
6. 766802E-01 
2 . 617511E-01 
6 . 766802E-01 
4 . 296376E-01 
6. 558044E— 01 
5 . 296052E-01 
5 . 683835E-01 
-5. 354028E+00 
-3.766224E-02 
— 8 . 324932E+00 
-5. 354026E+00 
—8 . 32493 1E+ 00 
1. 550401E+00 
1 . 550401E+00 
-5 . 354026E+00 
6. 307822E-01 
0. 000000e+00 
6 . 635997E-01 
2 . 617513E-01 
6. 635997E-01 
4 . 296378E-01 
6. 307822E-01 
5. 296056E-01 
5. 683835E-01 
3 . 002094E+00 
-3.766249E-02 
-1. 13 1980E+00 
1.64314 IE-01 
-1. 131980E+00 
3 . 586955E-01 


2 . 713646E— 02 
-2 . 247919E+00 
-6 . 960867E+00 
-6 . 960866E+00 
— 1.876486E-02 
4 . 67 1562E-02 
1 . 957937E-02 
-4 . 292021E-02 
-1.957937E-02 
-3.739925E-02 
-4 . 67 1 56 2 E— 02 
8 . 757442E-03 
6 . 862463E+00 
-5. 254602E-02 
4 . 92 88 59 E— 01 
-9 . 955978E-02 
2 . 989873E— 01 
9 . 955978E-02 
-9 . 955978E-02 
4 . 988674E-02 
2 . 77483 3E+00 
5. 606589E+00 
3 . 107 094E+00 
5. 606586E+00 
-2 . 247916E+00 
2 . 774833E+00 
1. 286226E-01 
1 . 710561E-02 
9 . 562874E— 02 
0. 000000e+00 
3 . 52 54 3 5E— 02 
-3 . 004587E-02 
-3 . 525435E-02 
-2.713646E-02 
-9 . 562 87 4E— 02 
-4.988674E-02 
-1 . 286226E-01 
-1 . 579300E-01 
2 . 583053E-01 
-2 . 989873E— 01 
1 . 579299E— 01 
-2.989873E-01 
5 . 254 599E— 02 
-5 . 254599E-02 
-1. 579299E-01 
3 . 57 3 03 IE— 01 
0. 000000e+00 
5 . 784764E-01 
3 . 004592E-02 
5 . 784764E-01 
2 . 7 13 657E-02 
3.573030E-01 
4 . 988680E-02 
1. 286226E-01 
2 . 262314E-01 
-2.583054E-01 
7 . 748860E-02 
-3 . 107096E+00 
-7.748860E-02 
2 . 247919E+00 


— 7 . 08 2 57 2E— 01 
-1 . 071558E+00 
—1 . 900096E+00 
-1.900097E+00 
0. 000000e+00 
0.000000e+00 
0.000000e+00 
0.000000e+00 
0. 000000e+00 
0.000000e+00 
0.000000e+00 
—1 . 796952E+00 
-2 . 427179E+00 
-5. 102044E+00 
-4 . 9 2 04 9 3 E— 01 
—8 . 324 385E+00 
—4 . 018692E-01 
8 . 324385E+00 
—8 . 324385E+00 
1 . 2247 63E+00 
2 . 6038 18E+00 
5 . 781806E+00 
-4 . 490215E-01 ■ 

5 . 781805E+00 • 

— 1 . 071558E+00 
2 . 603817E+00 ■ 

— 1 . 065287E+00 ■ 

3 . 720020E— 01 - 

1 . 053868E+00 - 

0.000000e+00 
— 1 . 501417E+00 
-1 . 085124E-01 ■ 

1 . 501417E+00 - 

7 . 082572E-01 
-1 . 053868E+00 
-1 . 224763E+00 
1 . 065287E+00 
6 . 754655E-01 
-9.495828E-01 
4.018692E-01 
— 6 . 754 66 0E— 01 
4 . 018692E— 01 
5 . 10204 3E+00 
—5 . 102 04 3 E+ 00 
6 . 754660E-01 
— 1 . 876906E+00 - 

0. 000000e+00 
-4 . 014360E+00 - 

1 . 085124E-01 - 

-4 . 014359E+00 
-7.082572E-01 
-1.876906E+00 
1 . 224762E+00 
-1.065286E+00 
1 . 076685E+00 
9 . 495828E-01 
-3 . 664337E+00 
4 . 490227E-01 - 

3 . 664337E+00 
1 . 071558E+00 


-1 . 345645E+00 
-1 . 9664 55E+00 
-2 . 3 39858E+00 
2 . 339859E+00 
8 . 219761E- 02 
-4.325923E-01 
6 . 985579E-01 
6.974553E-01 
-6. 985579E-01 
-7.925306E-01 
4 . 325923E-01 
-5. 086491E-02 
-1. 173690E+00 
0 . 000000e+00 
4.003685E-01 
0 . 000000e+00 
0. 000000e+00 
0 . 000000e+00 
0. 000000e+00 
-1. 500325E-01 
2 . 753377E+00 
6 . 248997E-01 
-3 . 093 104E+00 
-6 . 249012E-01 
1.966455E+00 
-2 . 753375E+00 
-1 . 53 524 3E-01 
-9.568367E-03 
-5. 399741E-03 
0. 000000e+00 
2 . 900030E— 01 
-4.095011E-01 
-2 . 90003 0E-01 
1. 345645E+00 
5. 399741E-03 
1. 500325E-01 
1. 535243E-01 
0 . 000000e+00 
2 . 748878E-01 
0. 000000e+00 
0 . 000000e+00 
0. 000000e+00 
0. 000000e+00 
0 . 000000e+00 
0. 000000e+00 
■8 . 814639E-02 
0 . 000000e+00 
•5. 691849E-01 
■4 . 095002E-01 
5. 691849E-01 
1. 345644E+00 
8 . 814609E-02 
1. 500314E-01 
1 . 535244E-01 
0. 000000e+00 
2 . 748883E-01 
0. 000000e+00 
3 . 093 104E+00 
0. 000000e+00 
1 . 9664 55E+00 
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78 —9 . 362507E— 02 3.002094E+00 -2 . 262314E-01 -1 . 076685E+00 0.000000e+00 

79 -4 . 840098E-02 5.159767E-01 -2 . 77483 3E+00 -2 . 603818E+00 -2 . 753377E+00 

80 -1 . 363751E-02 6.307822E-01 -3 . 573031E-01 1.876906E+00 8.814639E-02 

81 1 . 368123E-02 -2 . 015609E-01 -4 . 928859E-01 4.920493E-01 4.003682E-01 

82 9 . 017402E-02 3.794852E-01 -1 . 7 10561E-02 -3 . 720016E-01 -9 . 568 159E-03 

83 -1 . 368161E-02 -2 . 015607E-01 -4 . 928859E-01 4.920493E-01 -4 . 003685E-01 

84 1. 110041E-01 6 . 251503E-01 -8 . 757442E-03 1.796951E+00 -5 . 086538E-02 

85 -2 . 273155E-02 -3 . 766224E-02 -2 . 583053E-01 9.495828E-01 -2 . 748878E-01 

86 1 . 110041E-01 6 . 251503E-01 8.757442E-03 -1 . 796951E+00 5.086538E-02 

87 9 . 017402E-02 3.794852E-01 1.710561E-02 3.720016E-01 9.568159E-03 

88 0.000000e+00 0.000000e+00 0.000000e+00 0 . 000000e+00 0.000000e+00 

89 -3 . 936509E-02 3.812664E+00 3.519562E-01 1.776410E+00 0.000000e+00 

90 -3 . 9 7 06 6 7 E— 01 4.675813E-01 4.292027E-02 0.000000e+00 6.974548E-01 

91 3 . 936531E-02 3.812664E+00 3.519562E-01 1.776410E+00 0.000000e+00 

92 -1 . 343696E+00 5.557596E-01 3.739934E-02 0.000000e+00 -7 . 925306E-01 

93 9 . 362525E-02 3.002092E+00 2.262313E-01 1.076685E+00 0.000000e+00 

94 -1. 319714E+00 6.236920E-01 4.671568E-02 0.000000e+00 4.325927E-01 

95 9.843981E-02 6.558049E-01 9.562874E-02 1.053868E+00 5.399790E-03 

96 — 5 . 082608E— 02 -1 . 383284E+00 1.178113E-01 -4 . 74629 1E+00 0.000000e+00 

97 -1. 736602E-02 6.514788E-02 -6 . 8624 64E+00 2.427180E+00 -1 . 173689E+00 

98 -5 . 082608E-02 -1 . 383284E+00 -1 . 178113E-01 4.746291E+00 0.000000e+00 

99 -2 . 219216E-02 3.074746E-01 6.960867E+00 1.900096E+00 2.339858E+00 

100 —3 . 936509E-02 3.812664E+00 -3 . 519562E-01 -1 . 776410E+00 0.000000e+00 

101 -1.936520E-02 5.096145E-01 -5 . 606589E+00 -5 . 781806E+00 -6 . 248997E-01 

102 -3.658583E-03 6.635997E-01 -5 . 784764E-01 4.014360E+00 5.691849E-01 

103 1 . 736566E-02 6.514800E-02 -6 . 862463E+00 2.427179E+00 1.173690E+00 

104 -1 . 291305E+00 6.182576E-01 1.876487E-02 0.000000e+00 8.219618E-02 

105 4 . 307487E-02 1.643143E-01 -3 . 107094E+00 4.490215E-01 3.093104E+00 

106 — 1 . 291305E+00 6.182576E-01 -1 . 876487E-02 0.000000e+00 -8 . 219624E-02 

107 7 . 410365E-02 2.617513E-01 -3 . 004592E-02 -1 . 085124E-01 4.095002E-01 

108 -3.970667E-01 4.675813E-01 -4 . 292027E-02 0.000000e+00 -6 . 974548E-01 

109 5 . 082633E-02 -1 . 383282E+00 1.178112E-01 -4 . 746290E+00 0.000000e+00 

110 2 . 202222E+00 6.436672E-01 1.703529E-02 0.000000e+00 -1 . 850502E+00 

111 1 . 221661E-01 -1 . 131980E+00 7.748860E-02 -3 . 664336E+00 0.000000e+00 

112 -5.902691E-01 6.760237E-01 1.957938E-02 0.000000e+00 -6 . 985574E-01 

113 1 . 333232E-01 6.766807E-01 3.525431E-02 -1 . 5014 16E+00 -2 . 900030E-01 

114 5 . 082633E-02 -1 . 383282E+00 -1 . 178112E-01 4.746290E+00 0.000000e+00 

115 2 . 219188E-02 3.074747E-01 6.960866E+00 1.900097E+00 -2 . 339859E+00 

116 3 - 936531E-02 3.812664E+00 -3 . 519562E-01 -1 . 776410E+00 0.000000e+00 

117 1 . 936511E-02 5.096146E-01 -5 . 606586E+00 -5 . 781805E+00 6.249012E-01 

118 3 . 658720E— 03 6.635997E-01 -5 . 784764E-01 4.014359E+00 -5 . 691849E-01 

119 5 . 334839E-02 3.586957E-01 2.247916E+00 1.071558E+00 -1 . 966455E+00 

120 2.202222E+00 6.436672E-01 -1 . 703530E-02 0.000000e+00 1.850502E+00 

121 5 . 877860E-02 4.296378E-01 -2 . 713657E-02 7.082572E-01 -1 . 345644E+00 

122 -1. 343696E+00 5.557596E-01 -3 . 739934E-02 0.000000e+00 7.925306E-01 

123 1 . 221661E-01 -1 . 13 1980E+00 -7 . 748860E-02 3.664336E+00 0.000000e+00 

124 -5 . 902691E-01 6.760237E-01 -1 . 957938E-02 0.000000e+00 6.985574E-01 

125 1 . 333232E-01 6.766807E-01 -3 . 525431E-02 1.501416E+00 2.900030E-01 

126 9 . 362525E-02 3.002092E+00 -2 . 262313E-01 -1 . 076685E+00 0.000000e+00 

127 4 . 840085E-02 5.159769E-01 -2 . 774833E+00 -2 . 603817E+00 2.753375E+00 

128 1. 363764E— 02 6.307822E-01 -3 . 573030E-01 1.876906E+00 -8 . 814609E-02 

129 5 . 116946E-02 5.296056E-01 -4 . 988680E-02 -1 - 224762E+00 -1 . 500314E-01 

130 -1. 319714E+00 6.236920E-01 -4 . 671568E-02 0.000000e+00 -4 . 325927E-01 

131 9 . 843981E-02 6.558049E-01 -9 . 562874E-02 -1 . 053868E+00 -5 . 399790E-03 

132 2 . 344714E-02 5.683835E-01 -1 . 286226E-01 1.065286E+00 -1 . 535244E-01 

EIGENVALUE = 9.636076E+08 (FREQ = 4.94049E+03 HZ) 

1 0. 000000e+00 0 . 000000e+00 0.000000e+00 0.000000e+00 0 . 000000e+00 

2 -2 . 204335E-01 -9 . 134558E-01 9.786415E-02 -9 . 671673E-01 3.471567E-01 

3 — 1.362807E-01 6.042520E-01 6.709260E-02 6.771230E-01 -6 . 916553E-01 

4 -1 . 433665E-01 1.525908E+00 5.990286E-02 -7 . 172636E-01 0.000000e+00 
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5 -2 . 749668E+00 -8 . 418170E-01 -7 . 844 156E-02 0.000000e+00 -9 . 369984E-01 

6 -1.725030E-01 -1 . 501932E-01 -1 . 134764E-01 -9 . 1424 15E-01 1.307213E+00 

7 — 1.039136E-01 5.266383E-01 -7 . 977329E-01 -6 . 287336E-01 -6 . S75175E-01 

8 -2 . 717091E+00 -1 . 237710E+00 -2 . 057067E-02 0.000000e+00 2 . 514758E+00 

9 — 2 . 717091E+00 -1 . 237710E+00 2.057068E-02 0.000000e+00 -2 . 514758E+00 

10 2 . 906806E+00 -1 . 333014E+00 -2 . 662497E-02 0.000000e+00 -3 . 088984E+00 

11 -1. 129961E-01 -1. 517645E+00 5.321137E-02 -1 . 289827E-01 -7 . 749307E-01 

12 —4 . 161067E— 02 8.480288E-01 8.127363E-01 -4 . 558187E-01 1.901936E+00 

13 -9 . 085095E-02 -1 . 261820E+00 1.951224E-02 -1 . 302364E+00 0.000000e+00 

14 -6.269652E-02 7.836103E-01 1.301141E-01 -3 . 710077E-01 1.041503E+00 

15 -5 . 270659E-02 -1 . 68 162 1E+00 7.291245E-02 -4 . 685028E-01 0.000000e+00 

16 -3 . 621293E-02 9.436318E-01 2.187749E-02 1.894675E+00 O.OOOOOOe+QO 

17 2.759181E+00 -7 . 893918E-01 -5 . 889059E-02 0.000000e+00 7.627276E-01 

18 2 . 168846E-01 -1 . 752724E-01 -6 . 729257E-02 1.637128E+00 -1 . 066288E+00 

19 9 . 218806E-02 4.955928E-01 8.495526E-01 1.691139E+00 4.570588E-01 

20 2 . 205958E— 02 8.776253E-01 -7 . 371554E-01 3.848539E-02 -1 . 255874E+00 

21 —2 . 205948E— 02 8.776249E-01 -7 . 371586E-01 3.848138E-02 1.255874E+00 

22 2 . 906806E+00 -1 . 33 3 014E+00 2.662500E-02 0.000000e+00 3.088984E+00 

23 -8.377799E-01 -7 . 221616E-01 -1 . 345042E-01 0.000000e+00 1.911979E-01 

24 1 . 2 16837E+00 -1 . 249653E+00 -3 . 938779E-02 0.000000e+00 -6 . 867892E-01 

25 —2 . 749668E+00 -8 . 4 18170E-01 7.844156E-02 0.000000e+00 9.369934E-01 

26 1 . 216837E+00 -1 . 249653E+00 3.938778E-02 0.000000e+00 6.867891E-01 

27 2 . 759181E+00 -7 . 893919E-01 5.889060E-02 0.000000e+00 -7 . 627275E-01 

28 — 8.377799E-01 -7 . 22 1616E-01 1.345042E-01 0.000000e+00 -1 . 911977E-01 

29 -1. 129961E-01 -1 . 51764 5E+00 -5 . 32 1134E-02 1.289827E-01 7.749307E-01 

30 4 . 161183E-02 8.480287E-01 8.127404E-01 -4 . 5582 36E-01 -1 . 901937E+00 

31 -9.085095E-02 -1 . 261820E+00 -1 . 9512 18E-02 1.302364E+00 O.OOOOOOe+OQ 

32 6 . 269801E-02 7.836105E-01 1.301142E-01 -3 . 709958E-01 -1.0415072+00 

33 -3.621293E-02 9.436318E-01 -2 . 187740E-02 -1 . 894675E+00 0.000000e+00 

34 5. 270847E-02 -1 . 68 1604E+00 7.291251E-02 -4 . 68503 IE-01 0.000000a+00 

35 3 . 621491E-02 9.436296E-01 2.187751E-02 1.894667E+00 0.000000e+00 

36 3 . 621491E-02 9.436295E-01 -2 . 187742E-02 -1. 894667E+00 0.000000e+00 

37 5 . 765485E-02 -9 . 727752E-02 -2 . 158720E-01 -2 . 389098E+00 -9 . 9222 12E-02 

38 1.089216E— 01 4.881054E-01 -2 . 885715E-01 -2 . 4574 32E+00 3.233907E-01 

39 4 . 408480E— 02 8.937230E-01 3.235229E-01 2.770982E-01 7.550275E-02 

40 1 . 039 14 9E— 01 5.266376E-01 -7 . 977383E-01 -6. 287332E-01 6.875185E-01 

41 -4.408512E-02 8.937224E-01 3.235171E-01 2.771032E-01 -7 . 550669E-02 

42 -9.218830E-02 4.955921E-01 8.495580E-01 1.691151E+00 -4 . 570600E-01 

43 — 1.089219E— 01 4.881048E-01 -2 . 885684E-01 -2 . 457447E+00 -3 . 2 3 3817E-01 

44 3 . 3 7 68 HE— 01 5.112092E-02 -5 . 255506E-01 2.675913E+00 7.481520E-01 

45 -2.204335E-01 -9 . 134558E-01 -9 . 786409E-02 9.671673E-01 -3 . 47 1567E-01 

46 2 . 265447E— 01 -5 . 583499E-01 -3 . 988 387E-01 -1 . 765857E+00 -9 . 035845E-01 

47 0 . 000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0 . 000000e+00 

48 4 . 961613E-01 -1 . 3 3 6038E+00 -1 . 493480E-01 2-403214E-02 -7 . 572687E-01 

49 — 1.725030E-01 -1 . 501932E-01 1.134764E-01 9.142415E-01 -1 . 307213E+00 

50 4 . 961613E-01 -1 . 336038E+00 1.493480E-01 -2 . 403216E-02 7.572687E-01 

51 2 . 168846E-01 -1 . 752724E-01 6.729257E-02 -1 . 637 128E+00 1 . 06-3288E+00 

52 2 . 265447E-01 -5 . 583499E-01 3.988387E-01 1.765857E+00 9 . 03 584 5E-01 

53 5 . 765484E-02 -9 . 727752E-02 2.158720E-01 2.389098E+00 9.922206E-02 

54 3 . 376811E— 01 5.112090E-02 5.255506E-01 -2 . 675913E+00 -7 . 481520E-01 

55 — 1.433665E— 01 1.525908E+00 -5 . 990281E-02 7.172636E-01 0.000000e+00 

56 1. 362818E-01 6.042512E-01 6.709266E-02 6.771172E-01 6 . 9 1654 6E--01 

57 -5.270659E-02 -1. 681621E+00 -7 . 29 12 34E-02 4.685028E-01 0.000000e+00 

58 1 . 433684E-01 1.525901E+00 5.990295E-02 -7 . 172644E-01 0.00Q000e+00 

59 5 . 270847E-02 -1 . 68 1604E+00 -7 . 291245E-02 4.685032E-01 O.OQOOOOe+OO 

60 9 . 085280E-02 -1 . 261823E+00 1.951225E-02 -1 . 302364E+00 0.000000e+00 

61 9 . 085280E-02 -1 . 261823E+00 -1 . 951218E-02 1.302364E+00 0.000000e+00 

62 1 . 433684E-01 1.525901E+00 -5 . 990290E-02 7.172645E-01 0.000000e+00 

63 3 . 133246E— 01 4.843269E-01 -3 . 3 1203 5E-01 2.101591E+00 -9 . 552705E-02 

64 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0 . 000000e+00 
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65 1 . 271084E-01 8.988257E-01 -1 . 583 14 5E-01 -5 . 5932 10E-01 8.918363E-02 

66 1 . 725045E— 01 -1 . 501938E-01 -1 . 134769E-01 -9 . 142451E-01 -1 . 307220E+00 

67 -1.271092E-01 8.988244E-01 -1 . 583 148E-01 -5. 593316E-01 -8 . 918548E-02 

68 -2.168853E-01 -1 . 752732E-01 -6 . 729227E-02 1.637136E+00 1.066297E+00 

69 -3 . 133250E-01 4.843268E-01 -3 . 312039E-01 2.101606E+00 9.553254E-02 

70 -5 . 765487E-02 -9 . 727788E-02 -2 . 158716E-01 -2 . 389109E+00 9.921432E-02 

71 —3 . 3 7 68 HE— 01 5.112093E-02 -5 . 255505E-01 2.675922E+00 -7 . 481583E-01 

72 1 . 906072E-01 8.540589E-01 -2 . 395836E-01 -1 . 565595E+00 0.000000e+00 

73 -1 . 362807E-01 6.042520E-01 -6 . 709254E-02 -6 . 7712 3 IE-01 6.916553E-01 

74 2 . 460053E-01 2.331265E-01 -9 . 391183E-02 2.182657E-01 0.000000e+00 

75 -1 . 03913 6E-01 5.266383E-01 7.977328E-01 6.287338E-01 6.875175E-01 

76 2 . 460053E-01 2.331264E-01 9.391183E-02 -2 . 182657E-01 0.000000e+00 

77 9 . 218806E-02 4.955928E-01 -8 . 495526E-01 -1 . 691139E+00 -4 . 570587E-01 

78 1 . 906072E-01 8.540590E-01 2.395836E-01 1.565595E+00 0.000000e+00 

79 1 . 0892 16E-01 4.881054E-01 2.885715E-01 2.457432E+00 -3 . 233907E-01 

80 3.133246E-01 4.843269E-01 3.312035E-01 -2 . 101591E+00 9.552711E-02 

81 -6.269652E-02 7.836103E-01 -1 . 301140E-01 3.710076E-01 -1 . 041508E+00 

82 2 . 204356E-01 -9 . 134572E-01 9.786409E-02 -9 . 671671E-01 -3 . 471588E-01 

83 6.269801E-02 7.836105E-01 -1 . 301141E-01 3.709956E-01 1.041507E+00 

84 1 . 129975E-01 -1 . 517646E+00 5.321137E-02 -1 . 289803E-01 7.749367E-01 

85 1 . 362818E-01 6.042511E-01 -6 . 709266E-02 -6 . 771173E-01 -6 . 916546E-01 

86 1 . 129975E-01 -1 . 517646E+00 -5 . 321134E-02 1.289802E-01 -7 . 749367E-01 

87 2 . 204356E-01 -9 . 134572E-01 -9 . 786409E-02 9.671672E-01 3.471587E-01 

88 0 . 000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 O.OOOOOOe+CO 

89 7 . 068789E— 02 -9 . 3 10511E-01 -1 . 136358E-01 -7 . 224898E-01 0.000000e+00 

90 2 . 749687E+00 -8 . 418180E-01 -7 . 844 180E-02 0.000000e+00 9.370033E-G1 

91 -7 . 068890E-02 -9 . 3 10786E-01 -1 . 13 63 60E-01 -7 . 224833E-01 0.000000e+00 

92 -2 . 759203E+00 -7 . 893927E-01 -5 . 889043E-02 0.000000e+00 -7 . 627320E-01 

93 — 1 . 9 060 8 0E- 01 8.540800E-01 -2 . 395838E-01 -1 . 565598E+00 O.OOOOOOe+OG 

94 8 . 377856E-01 -7 . 221621E-01 -1 . 345039E-01 0.000000e+00 -1 . 911936E-01 

95 -2 . 265449E-01 -5 . 583495E-01 -3 . 988387E-01 -1 . 765857E+00 9.035881E-01 

96 7 • 325935E-02 1.771723E-01 -4 . 523061E-02 1.542386E+00 0.000000e+00 

97 -4 . 161067E-02 8.480288E-01 -8 . 127363E-01 4.558188E-01 -1 . 901936E+00 

98 7.32593 5E-02 1.771721E-01 4.523063E-02 -1 . 542386E+00 0.000000e+00 

99 2 . 205957E-02 8.776253E-01 7.371554E-01 -3 . 848554E-02 1.255873E+00 

100 7 . 068789E-02 -9 . 3 10509E-01 1.136358E-01 7.224900E-01 0.000000e+00 

101 4 . 408479E-02 8.937230E-01 -3 . 235229E-01 -2 . 770980E-01 -7 . 550281E-02 

102 1 . 271084E-01 8.988257E-01 1.583145E-01 5.593209E-01 -8 . 9 18375E-02 

103 4 . 161184E-02 8.480287E-01 -8 . 1274 04E-01 4.558237E-01 1.901936E+00 

104 — 2 . 90682 1E+00 -1 . 333015E+00 -2 . 662504E-02 0.000000e+00 3.089001E+00 

105 1 . 039149E-01 5.266375E-01 7.977382E-01 6.287333E-01 -6 . 875185E-01 

106 -2 . 90682 1E+00 -1 . 333015E+00 2.662506E-02 0.000000e+00 -3 . 089001E+00 

107 1 . 725045E— 01 -1 . 501938E-01 1.134769E-01 9.142452E-01 1.307220E+00 

108 2 . 749687E+00 -8 . 4 18 180E-01 7.844180E-02 0.000000e+00 -9 . 370034E-01 

109 -7 . 326072E— 02 1.771917E-01 -4 . 523069E-02 1.542413E+00 0.000000e+00 

110 2.717109E+00 -1. 237711E+00 -2 . 057060E-02 0.000000e+00 -2 . 514778E+00 

111 -2 . 460069E-01 2.331120E-01 -9 . 391201E-02 2.182455E-01 0.000000e+00 

112 -1 . 216844E+00 -1 . 249654E+00 -3 . 938764E-02 0.000000e+00 6.867919E-01 

113 -4 . 961632E-01 -1 . 336039E+00 -1 . 493480E-01 2.402635E-02 7.572713E-01 

114 -7 . 326072E-02 1.771914E-01 4.523071E-02 -1 . 5424 13E+00 0.000000e+00 

115 -2.205947E-02 8.776249E-01 7.371586E-01 -3 . 848153E-02 -1 . 255874E+00 

116 -7 . 068890E-02 -9 . 3 10784E-01 1.136360E-01 7.224836E-01 0.000000e+00 

117 -4 . 4 08 5 HE- 02 8.937223E-01 -3 . 235172E-01 -2 . 77103 IE-01 7.550675E-02 

118 -1.271092E-01 8.988244E-01 1.583148E-01 5.593314E-01 8.918560E-02 

119 -9. 218830E-02 4.955921E-01 -8 . 495578E-01 -1 . 691151E+00 4.570599E-01 

120 2 . 717109E+00 -1 . 237711E+00 2.057061E-02 0.000000e+00 2.514778E+00 

121 —2. 168853E— 01 -1 . 752732E-01 6.729227E-02 -1 . 637136E+00 -1 . 066297E+00 

122 -2 . 759203E+00 -7 . 893927E-01 5.889044E-02 0.000000e+00 7.627319E-01 

123 -2.460069E-01 2.331120E-01 9.391201E-02 -2 . 182456E-01 0.000000e+00 

124 —1.2 16844E+00 -1 . 249654E+00 3.938764E-02 0.000000e+00 -6 . 867918E-01 
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125 — 4.961632E-01 -1 . 336039E+00 1.493480E-01 -2 . 402637E-02 -7 . 5727 13E-01 

126 -1.906080E-01 8.540801E-01 2.395838E-01 1.565598E+00 0.000000e+00 

127 — 1 . 0892 19E-01 4.881047E-01 2.885683E-01 2.457447E+00 3.233817E-01 

128 — 3 . 133250E— 01 4.843268E-01 3.312039E-01 -2 . 101606E+00 -9 . 553 2 66E-02 

129 —5 . 765484E— 02 -9 . 727788E-02 2.158716E-01 2.389109E+00 -9 . 921426E-02 

130 8 . 377856E-01 -7 . 22 162 IE-01 1.345039E-01 0.000000e+00 1.911935E-01 

131 — 2.265449E-01 -5 . 583495E-01 3.988387E-01 1.765857E+00 -9 . 035882E-01 

132 -3 . 376811E-01 5.112092E-02 5.255505E-01 -2 . 675922E+00 7.481583E-01 

EIGENVALUE = 1.063199E+09 (FREQ = 5.18952E+03 HZ) 

1 0 . 000000e+00 0 . 000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 

2 —9 . 45113 3E-02 -8 . 471447E-02 3.096843E-03 -1 . 275939E+00 1.913482E+00 

3 — 2 . 277666E-01 2.889384E-01 -1 . 542409E+00 3.624273E+00 1.413621E+00 

4 -1 . 018422E-01 2.206059E+00 -1 . 565207E+00 -3 . 410224E+00 0.000000e+00 

5 3 . 062222E+00 -7 . 682985E-02 1.582063E+00 0.000000e+00 5.397369E+00 

6 6 . 724251E-01 -2 . 813478E-01 1.514244E+00 -2 . 658940E-01 -6 . 082453E+00 

7 4 . 080747E-01 4.823969E-02 -3 . 662 162E-01 -1 . 382513E+00 3.924341E+00 

8 -6 . 38244 3E+00 1.806549E-02 2.735959E+00 0.000000e+00 -2 . 699039E+00 

9 6 . 382443E+00 -1 . 806446E-02 2.735959E+00 0.000000e+00 -2 . 699040E+00 

10 -4 . 615300E+00 -2 . 599963E-02 1.629264E+00 0.000000e+00 -1 . 950772E+00 

11 -9 . 658593E-02 -6 . 737947E-02 1.341182E-02 6.628470E-01 -1 . 004295E+00 

12 1 . 357515E-01 1.267214E-01 6.682255E-01 -3 . 087060E+00 -3 . 398828E+00 

13 -4.790399E-02 -3 . 077598E+00 -1 . 591409E+00 1.226150E+00 0.000000e+00 

14 -1. 153558E-01 4.430590E-01 -2 . 628884E+00 5.613295E+00 -3 . 761798E+00 

15 -4.326220E-02 2.966340E+00 -2 . 645970E+00 -5 . 341032E+00 0.000000e+00 

16 -1.499858E-02 -4 . 455307E+00 -2 . 652623E+00 1.971824E+00 0.000000e+00 

17 4 . 153708E+00 4.432162E-02 2.726606E+00 0.000000e+00 7.167721E+00 

18 8 . 911163E— 01 -2 . 547168E-02 2.683100E+00 2.176843E+00 -6 . 874997E+00 

19 5.923499E— 01 -1 . 944394E-01 1.434947E-01 1.793740E+00 4.028863E+00 

20 2 . 031730E-01 -3 . 55642 0E-01 -4 . 605522E-01 2.941056E+00 -4 . 662491E+00 

21 — 2.031731E— 01 -3 . 5564 19E-01 -4 . 605462E-01 2.941056E+00 4.662493E+00 

22 4 . 6153 00E+00 2.600066E-02 1.629263E+00 0.000000e+00 -1 . 950772E+00 

23 2 . 795911E+00 2.049360E-01 2.676813E+00 0.000000e+00 5.161032E+00 

24 —4 . 209488E+00 5.668565E-02 2.678936E+00 0.000000e+00 -1 . 934254E+00 

25 -3 . 062223E+00 7.683051E-02 1.582063E+00 0.000000e+00 5.397369E+00 

26 4 . 209488E+00 -5 . 668460E-02 2.678936E+00 0.000000e+00 -1 . 934254E+00 

27 —4 . 153708E+00 -4 . 432087E-02 2.726606E+00 0.000000e+00 7.167721E+00 

28 —2 . 795911E+00 -2 . 049353E-01 2.676813E+00 0.000000e+00 5.161032E+00 

29 9 . 658569E-02 6.738049E-02 1.341186E-02 6.628470E-01 -1 . 004295E+00 

30 — 1.357517E-01 1.267214E-01 6.682259E-01 -3 . 087057E+00 3.398826E+00 

31 4.790386E-02 3.077598E+00 -1 . 591409E+00 1.226150E+00 0.000000e+00 

32 1 . 153558E-01 4.430590E-01 -2 . 628884E+00 5.613295E+00 3.761798E+00 

33 1.499853E-02 4.455307E+00 -2 . 652623E+00 1.971825E+00 0.000000e+00 

34 4 . 3262 17E-02 2.966342E+00 -2 . 645970E+00 -5 . 34 103 1E+00 0.000000e+00 

35 1 . 499856E-02 -4 . 455307E+00 -2 . 652623E+00 1.971823E+00 0.000000e+00 

36 — 1 • 4 998 5 IE— 02 4.455307E+00 -2 . 652623E+00 1.971824E+00 0.000000e+00 

37 2 . 380384E-01 4.330818E-01 2.631824E+00 -2 . 313739E+00 -5 . 920299E+00 

38 1.202772E— 01 -3 . 615993E-01 -1 . 036809E+00 -2 . 438682E+00 3.164447E+00 

39 3 . 105013E-02 -7 . 878942E-01 5.431327E-01 -2 . 748061E+00 -2 . 530603E+00 

40 -4. 080749E-01 4.823974E-02 -3 . 662177E-01 -1 . 382515E+00 -3 . 924339E+00 

41 -3.105013E-02 -7 . 878942E-01 5.431339E-01 -2 . 748065E+00 2.530602E+00 

42 -5.923499E-01 -1 . 944392E-01 1.434904E-01 1.793739E+00 -4 . 028865E+00 

43 — 1 . 202772E— 01 -3 . 615991E-01 -1 . 036811E+00 -2 . 438679E+00 -3 . 164445E+00 

44 -1 . 231256E+00 6.731454E-01 1.455760E+00 6.244908E-01 -3 . 520948E+00 

45 9 . 45112 IE-02 8.471519E-02 3.096922E-03 -1 . 27594 0E+00 1.913482E+00 

46 -5.769991E-01 2.839333E-01 1.479120E+00 -5 . 534750E-01 2.154360E+00 

47 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 

48 -2.441611E-01 6.599402E-02 1.488646E+00 -5 . 853536E-02 -1 . 142261E+00 

49 — 6.724251E-01 2.813480E-01 1.514244E+00 -2 . 658937E-01 -6 . 082453E+00 

50 2 . 441612E-01 -6 . 5993 01E-02 1.488646E+00 -5 . 853549E-02 -1 . 142261E+00 

51 -8.911163E-01 2 . 547195E-02 2.683100E+00 2.176843E+00 -6 . 874997E+00 
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52 5 . 769987E-01 -2 . 839326E-01 1.479120E+00 -5 . 534750E-01 2 . 154361E+00 

53 -2.380387E-01 -4 . 330815E-01 2.631824E+00 -2 . 313739E+00 -5 . 920299E+00 

54 1.231256E+00 -6 . 73 1454E-01 1.455760E+00 6.244904E-01 -3 . 520949E+00 

55 1.018422E-01 -2 . 206059E+00 -1 . 565207E+00 -3 . 410224E+00 0.000000e+00 

56 2 . 277665E-01 2.889384E-01 -1 . 542409E+00 3.624273E+00 -1 . 413620E+00 

57 4 . 326220E-02 -2 . 966340E+00 -2 . 645970E+00 -5. 341032E+00 0.000000e+00 

58 1 . 018422E-01 2.206058E+00 -1 . 565207E+00 -3 . 4 10224E+00 0.000000e+00 

59 -4 . 3262 14E-02 -2 . 966342E+00 -2 . 64 5970E+00 -5. 341031E+00 0.000000e+00 

60 4 . 790397E-02 -3 . 077598E+00 -1 . 591409E+00 1.226151E+00 0.000000e+00 

61 -4 . 790383E-02 3.077598E+00 -1. 591409E+00 1.226151E+00 0.000000e+00 

62 -1. 018421E-01 -2 . 206058E+00 -1 . 565207E+00 -3 . 410224E+00 0.000000e+00 

63 -1. 002457E+00 -3 . 775417E-01 -7 . 004800E-01 1.312627E+00 1.830906E+00 

64 0.000000e+00 0 . 000000e+00 0.000000e+00 0.000000e+00 0.000000n+00 

65 —3 . 876578E-01 -9 . 294272E-01 -2 . 182 199E+00 9.483725E-02 -3.7371561+00 

66 -6 . 724251E-01 -2 . 813478E-01 1.514244E+00 -2 . 658920E-01 6.0824521+00 

67 3 . 876581E-01 -9 . 294268E-01 -2 . 182 199E+00 9.483778E-02 3.7371561+00 

68 —8 . 911163E-01 -2 . 547169E-02 2.683100E+00 2.176842E+00 6.874998L+00 

69 1 . 002457E+00 -3 . 775414E-01 -7 . 004787E-01 1.312627E+00 -1 . 830903E+00 

70 -2 . 380384E-01 4.330818E-01 2.631824E+00 -2 . 313737E+00 5.920299E+00 

71 1. 231256E+00 6.731454E-01 1.455761E+00 6.244887E-01 3.520946E+00 

72 -4.797553E-01 -7 . 453079E-01 -6 . 739606E-01 -8 . 87 1293E-02 0.000000e+00 

73 2 . 277667E-01 -2 . 889388E-01 -1 . 5424 09E+00 3.624273E+00 1.413621E+00 

74 — 1.609535E-01 2.367033E-02 -6 . 550288E-01 3.305750E-01 0.000000e+00 

75 -4.080747E-01 -4 . 824009E-02 -3 . 662 161E-01 -1 . 382513E+00 3.924342E+00 

76 1 . 609 5 3 6E— 01 -2 . 3 67052E-02 -6 . 550288E-01 3.305750E-01 0.000000e+00 

77 —5 . 923499E-01 1.944390E-01 1.434943E-01 1.793739E+00 4.028863E+00 

78 4 . 797553E-01 7.453079E-01 -6 . 739606E-01 -8 . 871293E-02 0.000000e+00 

79 -1 . 202773E-01 3.615990E-01 -1 . 036809E+00 -2 . 438681E+00 3 . 164448E+00 

80 1 . 002456E+00 3.775414E-01 -7 . 004800E-01 1.312626E+00 1.830907E+00 

81 1 . 153558E— 01 -4 . 430597E-01 -2 . 628885E+00 5.613294E+00 -3 . 761799E+00 

82 9 . 451127E— 02 -8 . 471453E-02 3.096768E-03 -1 . 275939E+00 -1 . 913482E+00 

83 -1 . 153558E— 01 -4 . 430598E-01 -2 . 628884E+00 5.613294E+00 3.761799E+00 

84 9 . 658587E— 02 -6 . 737947E-02 1.341170E-02 6.628466E-01 1.004295E+00 

85 —2 . 277666E— 01 -2 . 889388E-01 -1 . 542409E+00 3.624272E+00 -1 . 4 13 62 1E+00 

86 -9.658563E— 02 6.738055E-02 1.341174E-02 6.628466E-01 1.0042951+00 

87 -9.451115E-02 8.471525E-02 3.096847E-03 -1 . 275939E+00 -1.9134821+00 

88 0 . 000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000€+00 

89 — 1.849937E-01 -1 . 2 302 35E+00 -2 . 162570E+00 1.643085E+00 0.000000e+00 

90 —3 . 06222 3E+ 00 -7 . 682991E-02 1.582063E+00 0.000000e+00 -5 . 397368E+00 

91 1 . 849939E-01 -1 . 230234E+00 -2 . 162 570E+00 1.643084E+00 0.000000e+00 

92 —4 . 153708E+00 4.432159E-02 2.726606E+00 0.000000e+00 -7 . 167722E+00 

93 4 . 797553E-01 -7 . 453071E-01 -6 . 739597E-01 -8 . 871388E-02 0.000000e+00 

94 —2 . 795912E+00 2.049360E-01 2.676813E+00 0.000000e+00 -5 . 161032E+00 

95 5 . 769991E-01 2.839333E-01 1.479120E+00 -5 . 534754E-01 -2 . 154359E+00 

96 -5 . 821772E-02 1.723785E+00 -2 . 134948E+00 -6 . 396148E-01 0.000000e+00 

97 — 1.357515E-01 -1 . 267222E-01 6.682255E-01 -3 . 087059E+00 -3 . 398829E+00 

98 5 . 821774E-02 -1 . 723785E+00 -2 . 134948E+00 -6 . 396143E-01 0.000000e+00 

99 -2 . 031730E-01 3.556412E-01 -4 . 605522E-01 2.941055E+00 -4 . 662492E+00 

100 1 . 849937E-01 1.230235E+00 -2 . 162570E+00 1.643084E+00 0.000000e+00 

101 —3 . 105019E-02 7.878933E-01 5.431327E-01 -2 . 748060E+00 -2 . 530604E+00 

102 3 . 876576E-01 9.294263E-01 -2 . 182 199E+00 9.483647E-02 -3 . 737157E+00 

103 1 . 357516E— 01 -1 . 267222E-01 6.682255E-01 -3 . 087056E+00 3.398827E+00 

104 4 . 615300E+00 -2 . 599966E-02 1.629263E+00 0.000000e+00 1.950771E+00 

105 4 . 080749E-01 -4 . 824012E-02 -3 . 662 177E-01 -1 . 382514E+00 -3 . 924339E+00 

106 -4 . 615299E+00 2.600069E-02 1.629263E+00 0.000000e+00 1.950771E+00 

107 6 . 724251E-01 2.813480E-01 1.514244E+00 -2 . 6589 17E-01 6.082452E+00 

108 3 . 062224E+00 7.683057E-02 1.582063E+00 0.000000e+00 -5 . 397368E+00 

109 5 . 821777E-02 1.723784E+00 -2 . 134948E+00 -6 . 396 14 3E-01 0.000000e+00 

110 6 . 382445E+00 1.806548E-02 2.735958E+00 0.000000e+00 2.699040E+00 

111 1 . 609535E-01 2.366930E-02 -6 . 550274E-01 3.305752E-01 0.000000e+00 
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112 4.209487E+00 5.668565E-02 2.678936E+00 0.000000e+00 1.934253E+00 

113 2 . 441610E-01 6.599396E-02 1.488646E+00 -5 . 853504E-02 1.142261E+00 

114 -5. 821780E-02 -1 . 723784E+00 -2 . 134948E+00 -6 . 396143E-01 0.000000e+00 

115 2 . 031731E-01 3.556411E-01 -4 . 605462E-01 2.941055E+00 4.662493E+00 

116 -1 . 849939E-01 1.230234E+00 -2 . 162570E+00 1.643083E+00 0.000000e+00 

117 3.105019E-02 7.878933E-01 5.431339E-01 -2 . 748063E+00 2.530604E+00 

118 —3 . 876580E-01 9.294263E-01 -2 . 182 199E+00 9.483707E-02 3.737157E+00 

119 5 . 923499E-01 1.944389E-01 1.434901E-01 1.793738E+00 -4 . 028866E+00 

120 -6.382445E+00 -1 . 806445E-02 2.735958E+00 0.000000e+00 2.699041E+00 

121 8 . 911163E-01 2 . 547 196E-02 2.683099E+00 2.176841E+00 6.874999E+00 

122 4 . 153708E+00 -4 . 432085E-02 2.726606E+00 0.000000e+00 -7 . 167722E+00 

123 -1 . 609536E-01 -2 . 366949E-02 -6 . 550274E-01 3.305752E-01 0.000000e+00 

124 -4 . 209487E+00 -5 . 668460E-02 2.678936E+00 0.000000e+00 1.934254E+00 

125 -2.441611E-01 -6 . 599301E-02 1.488646E+00 -5 . 853517E-02 1.142261E+00 

126 —4 .797553E-01 7.453071E-01 -6 . 739597E-01 -8 . 871382E-02 0.000000e+00 

127 1 . 202773E— 01 3.615987E-01 -1 . 036811E+00 -2 . 438678E+00 -3 . 164446E+00 

128 -1 . 002456E+00 3.775410E-01 -7 . 004787E-01 1.312627E+00 -1 . 830904E+00 

129 2 . 380386E— 01 -4 . 3308 15E-01 2.631824E+00 -2 . 313737E+00 5.920299E+00 

130 2.795912E+00 -2 . 049353E-01 2.676812E+00 0.000000e+00 -5 . 161032E+00 

131 -5.769987E-01 -2 . 839326E-01 1.479120E+00 -5 . 534754E-01 -2 . 154360E+00 

132 -1 . 231256E+00 -6 . 73 1454E-01 1.455760E+00 6.244887E-01 3.520947E+00 

EIGENVALUE = 1.542988E+09 (FREQ = 6.25175E+03 HZ) 

1 0 . 000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 

2 4 . 590805E-01 -3 . 272731E-01 -1 . 313581E-01 -3 . 265678E+00 -7 . 956802E-01 

3 2 . 040555E-01 7.161067E-01 7.191497E-02 2.607099E+00 -6 . 243586E+00 

4 2 . 712965E-01 2.856947E+00 1.851650E-01 -5 . 456234E+00 0.000000e+00 

5 2 . 647571E+00 -2 . 57 1492E-01 -5 . 264793E-01 0.000000e+00 -2 . 428569E-01 

6 4 . 339200E-01 -4 . 220100E-02 -3 . 743654E-01 1.309581E+00 1.092058E+00 

7 3 . 142332E-01 3.312021E-01 9.476547E-01 6.201724E-01 -4 . 433858E+00 

8 -3 . 654985E+00 -1 . 464982E-01 -9 . 227796E-01 0.000000e+00 -1 . 598598E+00 

9 3 . 654985E+00 1.464982E-01 -9 . 227796E-01 0.000000e+00 -1 . 598598E+00 

10 7 . 893673E-01 -1 . 84 1950E-01 -5 . 727791E-01 0.000000e+00 1.933828E+00 

11 2 . 489810E-01 -3 . 482481E-01 -2 . 520546E-01 9.744532E-01 -6 . 296736E-02 

12 9 . 407467E-02 1.614960E-02 -7 . 354807E-01 8.314003E-01 5.757459E+00 

13 1 . 340160E-01 -8 . 111287E+00 2.747808E-01 3.877952E+00 0.000000e+00 

14 1 . 276436E-01 -1 . 707510E-02 6.482824E-01 -2 . 196457E+00 9.779965E+00 

15 8 . 699143E-02 -1 . 702477E+00 6.866251E-01 2.725915E+00 0.000000e+00 

16 3 . 863589E-02 4.375741E+00 7.360634E-01 -1 . 735952E+00 0.000000e+00 

17 1 . 905424E+00 -2 . 796497E-01 -8 . 956088E-01 0.000000e+00 3.011215E+00 

18 9.190781E-01 -1 . 870955E-01 -8 . 362907E-01 -3 . 13 1558E+00 -5 . 17222 IE-01 

19 5 . 533018E-01 1.538521E-03 1.539549E+00 -1. 413861E+00 -8 . 053227E-01 

20 1 . 738380E-01 -1 . 338020E-01 -4 . 395337E-01 -4 . 497837E-01 3.379663E-01 

21 — 1.738344E— 01 -1 . 338034E-01 -4 . 395267E-01 -4 . 497721E-01 -3 . 379613E-01 

22 —7 - 89 3 67 3 E— 01 1.841950E-01 -5 . 727791E-01 0.000000e+00 1.933828E+00 

23 2 . 248714E+00 -3 . 794388E-01 -7 . 702 167E-01 0.000000e+00 2.839219E+00 

24 -3 . 751226E+00 -1 . 813316E-01 -8 . 336855E-01 0.000000e+00 -1 . 620147E+00 

25 —2.64757 1E+00 2.571492E-01 -5 . 264793E-01 0.000000e+00 -2 . 428569E-01 

26 3 . 7 5 12 2 6 E+ 00 1.813316E-01 -8 . 336855E-01 0.000000e+00 -1 . 62 014 7E+00 

27 — 1.905424E+00 2.796497E-01 -8 . 956088E-01 0.000000e+00 3.011215E+00 

28 -2 . 2487 14 E+ 00 3.794388E-01 -7 . 702 167E-01 0.000000e+00 2.839219E+00 

29 -2.489810E-01 3.482481E-01 -2 . 520546E-01 9.744532E-01 -6 . 296736E-02 

30 -9.407103E-02 1.614792E-02 -7 . 355083E-01 8.314034E-01 -5 . 757458E+00 

31 -1. 340160E-01 8 . 111287E+00 2.747808E-01 3.877952E+00 0.000000e+00 

32 -1.276395E-01 -1 . 707726E-02 6.482837E-01 -2 . 196479E+00 -9 . 779966E+00 

33 -3 . 863590E-02 -4 . 37574 1E+00 7.360634E-01 -1 . 735952E+00 0.000000e+00 

34 -8 . 698910E-02 -1 . 702480E+00 6.866266E-01 2.725936E+00 0.000000e+00 

35 -3.863514E-02 4 . 375768E+00 7.360650E-01 -1. 735967E+00 0.000000e+00 

36 3 . 863513E— 02 -4 . 375768E+00 7.360650E-01 -1 . 735967E+00 0.000000e+00 

37 8 . 172329E— 01 -3 . 306239E-01 -6 . 634548E-01 3.861403E+00 2.962852E-01 

38 5 . 007378E-01 -2 . 552581E-01 1.471487E+00 1.536960E+00 -2 . 500759E+00 
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39 1. 681758E— 01 

40 -3.142300E-01 

41 -1 . 681724E-01 

42 — 5 . 532988E-01 

43 —5 . 007 3 4 4E— 01 

44 1 . 389135E-01 

45 -4 . 590805E-01 

46 —3 . 469369E— 01 

47 0. 000000e+00 

48 -1.488602E-01 

49 —4 . 339200E-01 

50 1 . 488602E-01 

51 -9. 190781E-01 

52 3 . 469369E-01 

53 -8 . 172329E— 01 

54 -1.389135E-01 

55 -2 . 712966E-01 

56 -2 . 04053 3E-01 

57 — 8.699143E-02 

58 —2 . 712946E-01 

59 8 . 698910E-02 

60 -1. 340154E-01 

61 1 . 340154E— 01 

62 2 . 712946E— 01 

63 1 . 771163E— 01 
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